procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2008-06-08 10:42:34 +00:00
parent a4240420ba
commit b8206d82a5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/uniquify.el
View file

@ -360,7 +360,8 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil."
(setq dirname (directory-file-name dirname))) (setq dirname (directory-file-name dirname)))
(setq n (1- n)) (setq n (1- n))
(push (if (zerop (length file)) ;nil or "". (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) file)
extra-string))) extra-string)))
(when (zerop n) (when (zerop n)