Mercurial > emacs
changeset 17277:6ee6f94817dc
(grep-null-device): Move before first use.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Apr 1997 22:17:59 +0000 |
| parents | fc3829279a06 |
| children | 8ed8412c1ce7 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Tue Apr 01 22:09:02 1997 +0000 +++ b/lisp/progmodes/compile.el Tue Apr 01 22:17:59 1997 +0000 @@ -256,6 +256,9 @@ '(("^\\([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 @@ (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)