diff options
| author | Filipp Gunbin | 2014-12-25 21:17:43 +0300 |
|---|---|---|
| committer | Filipp Gunbin | 2014-12-26 15:36:27 +0300 |
| commit | f4a6345114b02fb725192aa548f2e84096fbaae6 (patch) | |
| tree | cb8bd9a8891061d9bded54535dcbac7acf6da3ef | |
| parent | d65526283d517e0b97b0c74af75bb2e869db4dae (diff) | |
| download | emacs-f4a6345114b02fb725192aa548f2e84096fbaae6.tar.gz emacs-f4a6345114b02fb725192aa548f2e84096fbaae6.zip | |
make dired-maybe-insert-subdir always skip trivial files
| -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. |