Mercurial > emacs
diff lisp/dired.el @ 5112:4bb3a179a87f
(dired-readin-insert): Expand default-directory and dirname
before comparing them.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Nov 1993 09:25:23 +0000 |
| parents | 28ad14078b0e |
| children | 193cd8b36b41 |
line wrap: on
line diff
--- a/lisp/dired.el Mon Nov 22 06:44:12 1993 +0000 +++ b/lisp/dired.el Mon Nov 22 09:25:23 1993 +0000 @@ -489,7 +489,9 @@ (if (consp dir-or-list) (setq dirname (car dir-or-list)) (setq dirname dir-or-list)) - (if (and (equal default-directory dirname) + ;; Expand before comparing in case one or both have been abbreviated. + (if (and (equal (expand-file-name default-directory) + (expand-file-name dirname)) (not (consp dir-or-list))) ;; If we are reading a whole single directory... (dired-insert-directory dir-or-list dired-actual-switches nil t)