aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/python.el
diff options
context:
space:
mode:
authorSam Steingold2016-01-15 11:53:05 -0500
committerSam Steingold2016-01-15 11:53:05 -0500
commit984a14904658da42ca9dea50a811a901ddc56e60 (patch)
tree7750b6d116b47864d1245965988c15db19559b4b /lisp/progmodes/python.el
parent930f8e8377e40ba161bd16ea4d612cb4c570ee1b (diff)
downloademacs-984a14904658da42ca9dea50a811a901ddc56e60.tar.gz
emacs-984a14904658da42ca9dea50a811a901ddc56e60.zip
replace `tramp-compat-split-string' (removed) with `split-string'
(python-shell-tramp-refresh-process-environment) (python-shell-calculate-pythonpath): use `split-string' instead of defunct `tramp-compat-split-string'
Diffstat (limited to 'lisp/progmodes/python.el')
-rw-r--r--lisp/progmodes/python.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 4984c9908bf..3bcbf07cbbd 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -2042,8 +2042,8 @@ virtualenv."
2042(defun python-shell-calculate-pythonpath () 2042(defun python-shell-calculate-pythonpath ()
2043 "Calculate the PYTHONPATH using `python-shell-extra-pythonpaths'." 2043 "Calculate the PYTHONPATH using `python-shell-extra-pythonpaths'."
2044 (let ((pythonpath 2044 (let ((pythonpath
2045 (tramp-compat-split-string 2045 (split-string
2046 (or (getenv "PYTHONPATH") "") path-separator))) 2046 (or (getenv "PYTHONPATH") "") path-separator 'omit)))
2047 (python-shell--add-to-path-with-priority 2047 (python-shell--add-to-path-with-priority
2048 pythonpath python-shell-extra-pythonpaths) 2048 pythonpath python-shell-extra-pythonpaths)
2049 (mapconcat 'identity pythonpath path-separator))) 2049 (mapconcat 'identity pythonpath path-separator)))
@@ -2114,7 +2114,7 @@ appends `python-shell-remote-exec-path' instead of `exec-path'."
2114 (md5 tramp-end-of-output))) 2114 (md5 tramp-end-of-output)))
2115 unset vars item) 2115 unset vars item)
2116 (while env 2116 (while env
2117 (setq item (tramp-compat-split-string (car env) "=")) 2117 (setq item (split-string (car env) "=" 'omit))
2118 (setcdr item (mapconcat 'identity (cdr item) "=")) 2118 (setcdr item (mapconcat 'identity (cdr item) "="))
2119 (if (and (stringp (cdr item)) (not (string-equal (cdr item) ""))) 2119 (if (and (stringp (cdr item)) (not (string-equal (cdr item) "")))
2120 (push (format "%s %s" (car item) (cdr item)) vars) 2120 (push (format "%s %s" (car item) (cdr item)) vars)