diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2008-05-16 20:20:36 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2008-05-16 20:20:36 +0000 |
| commit | 82f3844e661254f2eb2e845e183f145c63e3b7ab (patch) | |
| tree | a013ac7936425a9b1a6bc0ad27e7d00f8b3a46b1 /lisp/net | |
| parent | 98712492e73fbc31f6751fc13ac3416b44ee9221 (diff) | |
| download | emacs-82f3844e661254f2eb2e845e183f145c63e3b7ab.tar.gz | |
* net/tramp.el (tramp-handle-write-region): Fix check for short
track. Reported by Glenn Morris <rgm@gnu.org>.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 723eba0a93b..fb124389278 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4185,9 +4185,10 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file." ;; `file-writable-p' calls 'file-expand-file-name'. We ;; cannot use `tramp-run-real-handler' therefore. (let (file-name-handler-alist) - (file-writable-p (file-name-directory localname)) - (or (file-directory-p localname) - (file-writable-p localname)))) + (and + (file-writable-p (file-name-directory localname)) + (or (file-directory-p localname) + (file-writable-p localname))))) ;; Short track: if we are on the local host, we can run directly. (tramp-run-real-handler 'write-region |