Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f45da5d1
Commit
f45da5d1
authored
Nov 22, 1993
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(dired-readin-insert): Expand default-directory and dirname
before comparing them.
parent
b7d52f8e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
lisp/dired.el
lisp/dired.el
+3
-1
No files found.
lisp/dired.el
View file @
f45da5d1
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment