diff options
| -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) |