mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2005-01-17 23:51:34 +00:00
parent b64e46503f
commit 52a7f9bd2a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/grep.el
View File

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