* uniquify.el (uniquify-get-proposed-name): Handle remote files.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8985f40db8d..58ecb708be7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-08  Michael Albinus  <michael.albinus@gmx.de>
+
+        * uniquify.el (uniquify-get-proposed-name): Handle remote files.
+
 2008-05-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * tar-mode.el (tar-header-block-summarize): Ensure one space around
diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 07772bd6cda..a5614fd269c 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)