From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 Jan 2005 23:51:34 +0000 (+0000)
Subject: (grep-find): Copy from `grep' the condition for calling grep-compute-defaults.
X-Git-Tag: ttn-vms-21-2-B4~2701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52a7f9bd2a3c656cccc022913192de65c85e8b23;p=emacs.git

(grep-find): Copy from `grep' the condition for calling grep-compute-defaults.
---

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 04fcae78ea6..8efa48aaa48 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -527,7 +527,8 @@ This command uses a special history list for its arguments, so you can
 easily repeat a find command."
   (interactive
    (progn
-     (unless grep-find-command
+     (unless (and grep-command
+		  (or (not grep-use-null-device) (eq grep-use-null-device t)))
        (grep-compute-defaults))
      (if grep-find-command
 	 (list (read-from-minibuffer "Run find (like this): "