# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756614608 0
# Node ID 93a5ed7aaeb56840b4252a6abf2fa15c4664b156
# Parent  038648cabe5002c89e1ed417179fc79e602cf667
(grep-command): New variable.
(grep): Use it.

Don't repeat at load time any bindings that are autoloaded.

diff -r 038648cabe50 -r 93a5ed7aaeb5 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Dec 23 02:11:23 1993 +0000
+++ b/lisp/progmodes/compile.el	Thu Dec 23 02:43:28 1993 +0000
@@ -163,6 +163,9 @@
   '(("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
   "Regexp used to match grep hits.  See `compilation-error-regexp-alist'.")
 
+(defvar grep-command "grep -n "
+  "Last grep command used in \\{grep}; default for next grep.")
+
 ;;;###autoload
 (defvar compilation-search-path '(nil)
   "*List of directories to search for source files named in error messages.
@@ -240,7 +243,7 @@
 easily repeat a grep command."
   (interactive
    (list (read-from-minibuffer "Run grep (like this): "
-			       "grep -n " nil nil 'grep-history)))
+			       grep-command nil nil 'grep-history)))
   (compile-internal (concat command-args " /dev/null")
 		    "No more grep hits" "grep"
 		    ;; Give it a simpler regexp to match.
@@ -857,8 +860,7 @@
       (set-window-point w (car next-error))
       (set-window-start w (car next-error)))))
 
-;;;###autoload
-(define-key ctl-x-map "`" 'next-error)
+;;;###autoload (define-key ctl-x-map "`" 'next-error)
 
 ;; Find a buffer for file FILENAME.
 ;; Search the directories in compilation-search-path.