Mercurial > emacs
diff lisp/dired.el @ 50831:5565e45852d3
(dired-find-file): Bind find-file-run-dired around the call to find-file.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 05 May 2003 21:22:06 +0000 |
parents | 5f5babd538ab |
children | b53bffc0cbaf |
line wrap: on
line diff
--- a/lisp/dired.el Mon May 05 19:13:41 2003 +0000 +++ b/lisp/dired.el Mon May 05 21:22:06 2003 +0000 @@ -1362,7 +1362,10 @@ (defun dired-find-file () "In Dired, visit the file or directory named on this line." (interactive) - (find-file (dired-get-file-for-visit))) + ;; Bind `find-file-run-dired' so that the command works on directories + ;; too, independent of the user's setting. + (let ((find-file-run-dired t)) + (find-file (dired-get-file-for-visit)))) (defun dired-find-alternate-file () "In Dired, visit this file or directory instead of the dired buffer."