]> code.delx.au - gnu-emacs/commitdiff
replace `tramp-compat-split-string' (removed) with `split-string'
authorSam Steingold <sds@gnu.org>
Fri, 15 Jan 2016 16:53:05 +0000 (11:53 -0500)
committerSam Steingold <sds@gnu.org>
Fri, 15 Jan 2016 16:53:05 +0000 (11:53 -0500)
(python-shell-tramp-refresh-process-environment)
(python-shell-calculate-pythonpath): use `split-string'
instead of defunct `tramp-compat-split-string'

lisp/progmodes/python.el

index 4984c9908bf63475781f5cfa89d6ed5b33add0fb..3bcbf07cbbd4e16b643d4ebb8b2a077741a914fd 100644 (file)
@@ -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)