From 4124bc28d50348c20d6d01782b8cd31516741784 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sat, 9 Mar 2024 16:16:03 +0100
Subject: [PATCH] Provide default value for custom grep-files pattern query
 function

---
 site-lisp/db-utils.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el
index 1224407..b210ccc 100644
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@@ -536,14 +536,16 @@ entries, even if I want to use the input directly."
               (car grep-files-history)
               (car (car grep-files-aliases))))
          (files (completing-read
-                 (format "Search for \"%s\" in files matching wildcard: "
-                         regexp)
+                 (format "Search for \"%s\" in files matching wildcard (default: %s): "
+                         regexp
+                         default)
                  (delete-dups
                   (delq nil
                         (append (list default default-alias default-extension)
                                 (mapcar #'car grep-files-aliases))))
                  nil nil nil
-                 'grep-files-history)))
+                 'grep-files-history
+                 default)))
     (and files
          (or (cdr (assoc files grep-files-aliases))
              files))))