diff options
| author | Sam Steingold | 2016-01-15 11:53:05 -0500 |
|---|---|---|
| committer | Sam Steingold | 2016-01-15 11:53:05 -0500 |
| commit | 984a14904658da42ca9dea50a811a901ddc56e60 (patch) | |
| tree | 7750b6d116b47864d1245965988c15db19559b4b /lisp/progmodes/python.el | |
| parent | 930f8e8377e40ba161bd16ea4d612cb4c570ee1b (diff) | |
| download | emacs-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.el | 6 |
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) |