From 984a14904658da42ca9dea50a811a901ddc56e60 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Fri, 15 Jan 2016 11:53:05 -0500 Subject: [PATCH] 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' --- lisp/progmodes/python.el | 6 +++--- 1 file 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." (defun python-shell-calculate-pythonpath () "Calculate the PYTHONPATH using `python-shell-extra-pythonpaths'." (let ((pythonpath - (tramp-compat-split-string - (or (getenv "PYTHONPATH") "") path-separator))) + (split-string + (or (getenv "PYTHONPATH") "") path-separator 'omit))) (python-shell--add-to-path-with-priority pythonpath python-shell-extra-pythonpaths) (mapconcat 'identity pythonpath path-separator))) @@ -2114,7 +2114,7 @@ appends `python-shell-remote-exec-path' instead of `exec-path'." (md5 tramp-end-of-output))) unset vars item) (while env - (setq item (tramp-compat-split-string (car env) "=")) + (setq item (split-string (car env) "=" 'omit)) (setcdr item (mapconcat 'identity (cdr item) "=")) (if (and (stringp (cdr item)) (not (string-equal (cdr item) ""))) (push (format "%s %s" (car item) (cdr item)) vars) -- 2.39.5