Mercurial > emacs
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.