diff options
| -rw-r--r-- | lisp/dired-aux.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index bb93cce6500..acc7e767d69 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -2062,7 +2062,10 @@ See Info node `(emacs)Subdir switches' for more details." | |||
| 2062 | ;; inserted *after* opoint. | 2062 | ;; inserted *after* opoint. |
| 2063 | (setq dirname (file-name-as-directory dirname)) | 2063 | (setq dirname (file-name-as-directory dirname)) |
| 2064 | (or (and (not switches) | 2064 | (or (and (not switches) |
| 2065 | (dired-goto-subdir dirname)) | 2065 | (when (dired-goto-subdir dirname) |
| 2066 | (unless (dired-subdir-hidden-p dirname) | ||
| 2067 | (dired-initial-position dirname)) | ||
| 2068 | t)) | ||
| 2066 | (dired-insert-subdir dirname switches no-error-if-not-dir-p)) | 2069 | (dired-insert-subdir dirname switches no-error-if-not-dir-p)) |
| 2067 | ;; Push mark so that it's easy to find back. Do this after the | 2070 | ;; Push mark so that it's easy to find back. Do this after the |
| 2068 | ;; insert message so that the user sees the `Mark set' message. | 2071 | ;; insert message so that the user sees the `Mark set' message. |