From b6fbd705bbe6e72addcf610bb1a833a9506484c7 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 24 Jun 2002 11:27:29 +0000 Subject: [PATCH] (dired-find-file): Bind find-file-run-dired around the call to find-file. From Dan Nicolaescu . --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * dired.el (dired-find-file): Bind find-file-run-dired around the + call to find-file. From Dan Nicolaescu . + 2002-06-18 Juanma Barranquero * 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) -- 2.39.2