diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-23 12:17:25 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-23 12:17:25 +0200 |
| commit | 4b15b88e714f39ca6926f17b36a1302959b69643 (patch) | |
| tree | db0c562390f7f9f2f6927fcc90247fda5b15fad8 /lisp/dired.el | |
| parent | a9b393c77350cc177952008707781dd97341a83a (diff) | |
| download | emacs-4b15b88e714f39ca6926f17b36a1302959b69643.tar.gz | |
Make `d' in Dired skip dot files
* lisp/dired.el (dired-mark): Skip dot files (bug#38729). This
makes `C-u 10 d' (etc) consistent with marking the next ten lines
with the mouse and then hitting `d'.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 89fbd52aa62..fbf26dbce7a 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3957,7 +3957,11 @@ this subdir." (let ((inhibit-read-only t)) (dired-repeat-over-lines (prefix-numeric-value arg) - (lambda () (delete-char 1) (insert dired-marker-char))))))) + (lambda () + (when (or (not (looking-at-p dired-re-dot)) + (not (equal dired-marker-char dired-del-marker))) + (delete-char 1) + (insert dired-marker-char)))))))) (defun dired-unmark (arg &optional interactive) "Unmark the file at point in the Dired buffer. |