diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-23 22:01:08 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-23 22:01:08 +0000 |
commit | 6829372bbc233361f89522a15693e28bfc457a23 (patch) | |
tree | 96d9dc7151bd44bde8f05409deafc3cd11623a7b /lisp/uniquify.el | |
parent | c3b6bb97b74156ddd0c3a2c10ce3d4f9e941fab5 (diff) | |
download | emacs-6829372bbc233361f89522a15693e28bfc457a23.tar.gz |
(uniquify-get-proposed-name): Fix (.. "usr" "/usr" 0).
Diffstat (limited to 'lisp/uniquify.el')
-rw-r--r-- | lisp/uniquify.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 361fae2ea17..cd8b22303dc 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -279,7 +279,7 @@ in `uniquify-list-buffers-directory-modes', otherwise returns nil." file) extra-string))) (when (zerop n) - (if (and filename + (if (and filename extra-string (setq filename (file-name-directory filename)) (equal filename (file-name-directory (directory-file-name filename)))) |