mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(grep-null-device): Move before first use.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-04-01 22:17:59 +00:00
parent 2b98929656
commit 54bfce8a12
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/progmodes/compile.el
View File

@ -256,6 +256,9 @@ Otherwise, it saves all modified buffers without asking.")
'(("^\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
"Regexp used to match grep hits. See `compilation-error-regexp-alist'.")
;; The system null device. (Should reference NULL_DEVICE from C.)
(defvar grep-null-device "/dev/null" "The system null device.")
;; Use zgrep if available, to work nicely with compressed files.
;; Otherwise, use ordinary grep.
(defvar grep-program
@ -407,9 +410,6 @@ to a function that generates a unique name."
(save-some-buffers (not compilation-ask-about-save) nil)
(compile-internal compile-command "No more errors"))
;; The system null device. (Should reference NULL_DEVICE from C.)
(defvar grep-null-device "/dev/null" "The system null device.")
(defun grep-process-setup ()
"Set up `compilation-exit-message-function' for `grep'."
(set (make-local-variable 'compilation-exit-message-function)