[Emacs-diffs] master 3bf717b: Add file name and its extension to suggestions in dired-mark-files-regexp

[Juri Linkov]

branch: master
commit 3bf717b05b9d8fb53e953aa56649ffc38fd6e5d1
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    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 2733372..8396652 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