From: Juri Linkov <juri@linkov.net>
Date: Mon, 27 Feb 2017 22:45:21 +0000 (+0200)
Subject: Add file name and its extension to suggestions in dired-mark-files-regexp
X-Git-Tag: emacs-26.0.90~700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bf717b05b9d8fb53e953aa56649ffc38fd6e5d1;p=emacs.git

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)
---

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