diff options
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10de84b3c41..dff574972a4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | * net/tramp.el (with-tramp-progress-reporter, tramp-call-process): | 3 | * net/tramp.el (with-tramp-progress-reporter, tramp-call-process): |
| 4 | Add traces. | 4 | Add traces. |
| 5 | (tramp-handle-unhandled-file-name-directory): Return "/". | ||
| 5 | 6 | ||
| 6 | 2014-06-02 Wilson Snyder <wsnyder@wsnyder.org> | 7 | 2014-06-02 Wilson Snyder <wsnyder@wsnyder.org> |
| 7 | 8 | ||
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index deb89ed5894..36ee449659c 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -3340,8 +3340,9 @@ User is always nil." | |||
| 3340 | (defun tramp-handle-unhandled-file-name-directory (_filename) | 3340 | (defun tramp-handle-unhandled-file-name-directory (_filename) |
| 3341 | "Like `unhandled-file-name-directory' for Tramp files." | 3341 | "Like `unhandled-file-name-directory' for Tramp files." |
| 3342 | ;; With Emacs 23, we could simply return `nil'. But we must keep it | 3342 | ;; With Emacs 23, we could simply return `nil'. But we must keep it |
| 3343 | ;; for backward compatibility. | 3343 | ;; for backward compatibility. "~/" cannot be returned, because |
| 3344 | (expand-file-name "~/")) | 3344 | ;; there might be machines without a HOME directory (like hydra). |
| 3345 | "/") | ||
| 3345 | 3346 | ||
| 3346 | (defun tramp-handle-set-visited-file-modtime (&optional time-list) | 3347 | (defun tramp-handle-set-visited-file-modtime (&optional time-list) |
| 3347 | "Like `set-visited-file-modtime' for Tramp files." | 3348 | "Like `set-visited-file-modtime' for Tramp files." |