From f45da5d14b243bf8499416217534bf4d61fa485d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Nov 1993 09:25:23 +0000 Subject: [PATCH] (dired-readin-insert): Expand default-directory and dirname before comparing them. --- lisp/dired.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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." (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) -- 2.39.5