changeset 5260:93a5ed7aaeb5

(grep-command): New variable. (grep): Use it. Don't repeat at load time any bindings that are autoloaded.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 02:43:28 +0000
parents 038648cabe50
children 50406a868f05
files lisp/progmodes/compile.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.