From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 8 Jun 2008 10:42:34 +0000 (+0000)
Subject: * uniquify.el (uniquify-get-proposed-name): Handle remote files.
X-Git-Tag: emacs-pretest-23.0.90~5014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8206d82a5b56d3e466e59e378170fce3d560c64;p=emacs.git

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

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)