From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 May 2003 21:22:13 +0000 (+0000)
Subject: (dired-find-file): Bind find-file-run-dired around the call to find-file.
X-Git-Tag: ttn-vms-21-2-B4~10307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59d18288fe56acd8769195d6002fc01f24232dce;p=emacs.git

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

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."