dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Provide default value for custom grep-files pattern query function

This commit is contained in:
Daniel - 2024-03-09 16:16:03 +01:00
parent 7d398a66c8
commit 4124bc28d5
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
site-lisp/db-utils.el
View File

@ -536,14 +536,16 @@ entries, even if I want to use the input directly."
(car grep-files-history) (car grep-files-history)
(car (car grep-files-aliases)))) (car (car grep-files-aliases))))
(files (completing-read (files (completing-read
(format "Search for \"%s\" in files matching wildcard: " (format "Search for \"%s\" in files matching wildcard (default: %s): "
regexp) regexp
default)
(delete-dups (delete-dups
(delq nil (delq nil
(append (list default default-alias default-extension) (append (list default default-alias default-extension)
(mapcar #'car grep-files-aliases)))) (mapcar #'car grep-files-aliases))))
nil nil nil nil nil nil
'grep-files-history))) 'grep-files-history
default)))
(and files (and files
(or (cdr (assoc files grep-files-aliases)) (or (cdr (assoc files grep-files-aliases))
files)))) files))))