Mercurial > emacs
changeset 95658:ad3644a3612d
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 08 Jun 2008 10:42:34 +0000 |
| parents | c4f5f8f64d1f |
| children | 926453fe3d68 |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Sun Jun 08 09:26:02 2008 +0000 +++ b/lisp/uniquify.el Sun Jun 08 10:42:34 2008 +0000 @@ -360,7 +360,8 @@ (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)