changeset 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 d9fb93d75f74
children 193cd8b36b41
files lisp/dired.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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)