mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(dired-readin-insert): Expand default-directory and dirname

Browse Source 
before comparing them.
This commit is contained in:
Richard M. Stallman 1993-11-22 09:25:23 +00:00
parent b7d52f8ed4
commit f45da5d14b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/dired.el
View File

@ -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)