changeset 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 8d335609caaf
children 43664d47b043
files lisp/dired.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
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."