diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cee4d322d69..a74e9823799 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-02-27 Daniel Colascione <dancol@dancol.org> | ||
| 2 | |||
| 3 | * net/tramp-sh.el (tramp-get-remote-path): Don't signal error when | ||
| 4 | explicit tramp path is empty. | ||
| 5 | |||
| 1 | 2014-02-26 Glenn Morris <rgm@gnu.org> | 6 | 2014-02-26 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * startup.el (command-line): Don't init the tty in daemon mode. | 8 | * startup.el (command-line): Don't init the tty in daemon mode. |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 37e212970ce..04109f9816c 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -4846,7 +4846,7 @@ Return ATTR." | |||
| 4846 | (when elt1 | 4846 | (when elt1 |
| 4847 | (setcdr elt1 | 4847 | (setcdr elt1 |
| 4848 | (append | 4848 | (append |
| 4849 | (tramp-compat-split-string default-remote-path ":") | 4849 | (tramp-compat-split-string (or default-remote-path "") ":") |
| 4850 | (cdr elt1))) | 4850 | (cdr elt1))) |
| 4851 | (setq remote-path (delq 'tramp-default-remote-path remote-path))) | 4851 | (setq remote-path (delq 'tramp-default-remote-path remote-path))) |
| 4852 | 4852 | ||
| @@ -4854,7 +4854,7 @@ Return ATTR." | |||
| 4854 | (when elt2 | 4854 | (when elt2 |
| 4855 | (setcdr elt2 | 4855 | (setcdr elt2 |
| 4856 | (append | 4856 | (append |
| 4857 | (tramp-compat-split-string own-remote-path ":") | 4857 | (tramp-compat-split-string (or own-remote-path "") ":") |
| 4858 | (cdr elt2))) | 4858 | (cdr elt2))) |
| 4859 | (setq remote-path (delq 'tramp-own-remote-path remote-path))) | 4859 | (setq remote-path (delq 'tramp-own-remote-path remote-path))) |
| 4860 | 4860 | ||