emacs-29 cd5856e403: Fix bug when calling `rgrep` non-interactively

[Stefan Kangas]

branch: emacs-29
commit cd5856e40386779675fc9ada36eefd8bd80a82b5
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Fix bug when calling `rgrep` non-interactively
    
    * lisp/progmodes/grep.el (rgrep): Fix bug where running
    non-interactively requires running it interactively
    first.  (Bug#60024)
---
 lisp/progmodes/grep.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 2446e86abb..35cac43bee 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -1254,6 +1254,10 @@ or not."
                                          nil default-directory t))
                (confirm (equal current-prefix-arg '(4))))
           (list regexp files dir confirm))))))
+  ;; If called non-interactively, also compute the defaults if we
+  ;; haven't already.
+  (unless grep-find-template
+    (grep-compute-defaults))
   (when (and (stringp regexp) (> (length regexp) 0))
     (unless (and dir (file-accessible-directory-p dir))
       (setq dir default-directory))