(dired-find-file): Bind find-file-run-dired around the call to find-file.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa25f744000..43537104c2c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -18,6 +18,11 @@
         * emacs-lisp/autoload.el (batch-update-autoloads):
         Call `update-directory-autoloads'.
 
+2003-05-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * dired.el (dired-find-file): Bind find-file-run-dired around
+        the call to find-file. 
+
 2003-05-04  Stefan Monnier  <monnier@cs.yale.edu>
 
         * uniquify.el: Move provide to end of file.
diff --git a/lisp/dired.el b/lisp/dired.el
index 47feb3aa50b..5397bad8b7c 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1362,7 +1362,10 @@ Creates a buffer if necessary."
 (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."