diff options
| author | Richard M. Stallman | 1993-11-22 09:25:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-22 09:25:23 +0000 |
| commit | f45da5d14b243bf8499416217534bf4d61fa485d (patch) | |
| tree | d72703c271bb884dc638029e0e10301af6050f81 | |
| parent | b7d52f8ed4f302153f3bbe6eb2110ff81ca567de (diff) | |
| download | emacs-f45da5d14b243bf8499416217534bf4d61fa485d.tar.gz emacs-f45da5d14b243bf8499416217534bf4d61fa485d.zip | |
(dired-readin-insert): Expand default-directory and dirname
before comparing them.
| -rw-r--r-- | lisp/dired.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 8c7c9baa998..2a197ca7a8e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -489,7 +489,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 489 | (if (consp dir-or-list) | 489 | (if (consp dir-or-list) |
| 490 | (setq dirname (car dir-or-list)) | 490 | (setq dirname (car dir-or-list)) |
| 491 | (setq dirname dir-or-list)) | 491 | (setq dirname dir-or-list)) |
| 492 | (if (and (equal default-directory dirname) | 492 | ;; Expand before comparing in case one or both have been abbreviated. |
| 493 | (if (and (equal (expand-file-name default-directory) | ||
| 494 | (expand-file-name dirname)) | ||
| 493 | (not (consp dir-or-list))) | 495 | (not (consp dir-or-list))) |
| 494 | ;; If we are reading a whole single directory... | 496 | ;; If we are reading a whole single directory... |
| 495 | (dired-insert-directory dir-or-list dired-actual-switches nil t) | 497 | (dired-insert-directory dir-or-list dired-actual-switches nil t) |