dired when find-file-run-dired is nil

[Dan Nicolaescu]

Currently if `find-file-run-dired' is set to nil and RET is pressed
when the cursor is on a directory in dired nothing happens. 

I don't know what the current patch submission policies are, so I send
the patch here. 


2002-06-22  Dan Nicolaescu  <dann@ics.uci.edu>

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



*** dired.el~   Wed Apr  4 07:35:01 2001
--- dired.el    Thu Jun 20 19:31:17 2002
*************** Creates a buffer if necessary."
*** 1356,1362 ****
  (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)))
      (if (file-exists-p file-name)
        (find-file file-name)
        (if (file-symlink-p file-name)
--- 1356,1365 ----
  (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))
!       ;; 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)