Mercurial > emacs
changeset 80593:bbcac017f363
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 08 Jun 2008 11:08:07 +0000 |
| parents | 8436412d2e08 |
| children | e9deeb97b5a1 |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Mon May 26 17:41:30 2008 +0000 +++ b/lisp/uniquify.el Sun Jun 08 11:08:07 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)