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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa25f74400092c6e00f91ffcd9b17c3e1d35a9f5..43537104c2c3f4b4e37f4d423ad060a1bb415dfd 100644 (file)
--- 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 47feb3aa50bde85846474456261d542fe167d44f..5397bad8b7c7aea3d2e35a2682677ee8a46440b0 100644 (file)
--- 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."