From 3bf717b05b9d8fb53e953aa56649ffc38fd6e5d1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 28 Feb 2017 00:45:21 +0200 Subject: [PATCH] Add file name and its extension to suggestions in dired-mark-files-regexp * lisp/dired.el (dired-mark-files-regexp): Add file name and its extension to the list of suggested defaults. (Bug#25578) --- lisp/dired.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/dired.el b/lisp/dired.el index 2733372eb7b..8396652d50b 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3361,7 +3361,14 @@ object files--just `.o' will mark more than you might think." (interactive (list (read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files (regexp): ") - nil 'dired-regexp-history) + ;; Add more suggestions into the default list + (cons nil (list (dired-get-filename t t) + (and (dired-get-filename nil t) + (concat (regexp-quote + (file-name-extension + (dired-get-filename nil t) t)) + "\\'")))) + 'dired-regexp-history) (if current-prefix-arg ?\040))) (let ((dired-marker-char (or marker-char dired-marker-char))) (dired-mark-if -- 2.39.5