[Emacs-diffs] Changes to emacs/lisp/uniquify.el,v [EMACS_22_BASE]

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Michael Albinus <albinus>       08/06/08 11:08:08

Index: uniquify.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/uniquify.el,v
retrieving revision 1.62.2.11
retrieving revision 1.62.2.12
diff -u -b -r1.62.2.11 -r1.62.2.12
--- uniquify.el 28 Feb 2008 19:46:59 -0000      1.62.2.11
+++ uniquify.el 8 Jun 2008 11:08:07 -0000       1.62.2.12
@@ -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)