From 4c808a5caa661d081f5fda8d05e3dc68835316f5 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 8 Jun 2008 11:09:23 +0000 Subject: [PATCH] * uniquify.el (uniquify-get-proposed-name): Handle remote files. --- lisp/ChangeLog | 4 ++++ lisp/uniquify.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * uniquify.el (uniquify-get-proposed-name): Handle remote files. + 2008-05-26 Stefan Monnier * 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) -- 2.39.5