# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1052169726 0
# Node ID 5565e45852d3f279d3e24a8955281e1d11364d07
# Parent  8d335609caaf2ac6a5a57cc0eadc2dee26ec65d3
(dired-find-file): Bind find-file-run-dired around the call to find-file.

diff -r 8d335609caaf -r 5565e45852d3 lisp/dired.el
--- 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."