diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2008-06-08 10:42:34 +0000 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2008-06-08 10:42:34 +0000 |
commit | b8206d82a5b56d3e466e59e378170fce3d560c64 (patch) | |
tree | 61a5d93ce262442a97615a6045f3d3854c94b1a8 /lisp/uniquify.el | |
parent | a4240420baeeb3456dbcc3c25989870df1e38541 (diff) | |
download | emacs-b8206d82a5b56d3e466e59e378170fce3d560c64.tar.gz |
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
Diffstat (limited to 'lisp/uniquify.el')
-rw-r--r-- | lisp/uniquify.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 6ac3421255c..ca8e4bb4638 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -360,7 +360,8 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil." (setq dirname (directory-file-name dirname))) (setq n (1- n)) (push (if (zerop (length file)) ;nil or "". - (prog1 "" (setq dirname nil)) ;Could be `dirname' iso "". + (prog1 (or (file-remote-p dirname) "") + (setq dirname nil)) ;Could be `dirname' iso "". file) extra-string))) (when (zerop n) |