From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 24 Jun 2002 11:27:29 +0000 (+0000)
Subject: (dired-find-file): Bind find-file-run-dired around the call to find-file.
X-Git-Tag: emacs-pretest-21.2.91~219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6fbd705bbe6e72addcf610bb1a833a9506484c7;p=emacs.git

(dired-find-file): Bind find-file-run-dired around the call to find-file.
From Dan Nicolaescu <dann@ics.uci.edu>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a8e0c52fb6..5a5494c5a13 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-24  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* dired.el (dired-find-file): Bind find-file-run-dired around the
+	call to find-file.  From Dan Nicolaescu <dann@ics.uci.edu>.
+
 2002-06-18  Juanma Barranquero  <lektu@terra.es>
 
 	* eshell/em-pred.el (eshell-modifier-help-string): Fix typos.
diff --git a/lisp/dired.el b/lisp/dired.el
index 5361bdd22bf..df8ff1daed2 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1360,7 +1360,10 @@ Creates a buffer if necessary."
 (defun dired-find-file ()
   "In dired, visit the file or directory named on this line."
   (interactive)
-  (let ((file-name (file-name-sans-versions (dired-get-filename) t)))
+  (let ((file-name (file-name-sans-versions (dired-get-filename) t))
+	;; bind it so that the command works on directories too,
+	;; independent of of the user's setting
+	(find-file-run-dired t))
     (if (file-exists-p file-name)
 	(find-file file-name)
       (if (file-symlink-p file-name)