From cab5a8a29f65dfdcec416e8576b59f9d17c447e7 Mon Sep 17 00:00:00 2001
From: Raphael Roberts <raphael.roberts48@gmail.com>
Date: Mon, 14 Oct 2019 23:11:57 -0500
Subject: [PATCH] Android fix

---
 settings.org | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/settings.org b/settings.org
index 8290e73..3f30975 100644
--- a/settings.org
+++ b/settings.org
@@ -282,6 +282,7 @@ This handy function is a customized ripoff of custom-save-all
 #+END_SRC
 ** Python
 *** Platform specific
+Set python command
 #+BEGIN_SRC emacs-lisp
   (setq elpy-rpc-python-command
 	(cond
@@ -292,22 +293,26 @@ This handy function is a customized ripoff of custom-save-all
 #+END_SRC
 put executables in elpy-rpc-venv in path
 #+BEGIN_SRC emacs-lisp
-
   (defun rlbr/elpy-append-to-path ()
-      (setenv "PATH" (string-join (list (getenv "PATH")
-					(let ((default-directory (elpy-rpc-get-or-create-virtualenv))
-					      (path-entry)
-					      (elpy-binpath))
-					  (if (string-equal system-type "windows-nt")
-					      (progn (setq elpy-binpath (expand-file-name "Scripts"))
-						     (setq path-entry (replace-regexp-in-string (regexp-quote "/")
-												(regexp-quote "\\")
-												elpy-binpath)))
-					    (setq elpy-binpath (expand-file-name "bin"))
-					    (setq path-entry elpy-binpath))
-					  (nconc exec-path (list elpy-binpath))
-					  elpy-binpath))
-				  path-separator)))
+    (setenv "PATH" (string-join (list (getenv "PATH")
+				      (let ((default-directory (elpy-rpc-get-or-create-virtualenv))
+					    (path-entry)
+					    (elpy-binpath))
+					(if (string-equal system-type "windows-nt")
+					    (progn (setq elpy-binpath (expand-file-name "Scripts"))
+						   (setq path-entry (replace-regexp-in-string (regexp-quote "/")
+											      (regexp-quote "\\")
+											      elpy-binpath)))
+					  (setq elpy-binpath (expand-file-name "bin"))
+					  (setq path-entry elpy-binpath))
+					(nconc exec-path (list elpy-binpath))
+					elpy-binpath))
+				path-separator)))
+#+END_SRC
+#+BEGIN_SRC emacs-lisp
+  (unless (= 0 (call-process elpy-rpc-python-command nil nil nil "-c" "import multiprocessing;multiprocessing.Pool()"))
+    (setq python-check-command
+	  (string-join `(,python-check-command "--jobs=1") " ")))
 #+END_SRC
 *** custom feature
 #+BEGIN_SRC emacs-lisp