diff options
| author | Richard M. Stallman | 1997-04-01 22:17:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-01 22:17:59 +0000 |
| commit | 54bfce8a12c3c8cc19d8b84158ec008caa36820e (patch) | |
| tree | d7a8160d19b5eaed10f4f69db310409a483fc921 | |
| parent | 2b989296560fa038f68dbd03b8c8b68d99c33217 (diff) | |
| download | emacs-54bfce8a12c3c8cc19d8b84158ec008caa36820e.tar.gz emacs-54bfce8a12c3c8cc19d8b84158ec008caa36820e.zip | |
(grep-null-device): Move before first use.
| -rw-r--r-- | lisp/progmodes/compile.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 77330d2b66b..096932eb5f0 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -256,6 +256,9 @@ Otherwise, it saves all modified buffers without asking.") | |||
| 256 | '(("^\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) | 256 | '(("^\\([a-zA-Z]?:?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)) |
| 257 | "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") | 257 | "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") |
| 258 | 258 | ||
| 259 | ;; The system null device. (Should reference NULL_DEVICE from C.) | ||
| 260 | (defvar grep-null-device "/dev/null" "The system null device.") | ||
| 261 | |||
| 259 | ;; Use zgrep if available, to work nicely with compressed files. | 262 | ;; Use zgrep if available, to work nicely with compressed files. |
| 260 | ;; Otherwise, use ordinary grep. | 263 | ;; Otherwise, use ordinary grep. |
| 261 | (defvar grep-program | 264 | (defvar grep-program |
| @@ -407,9 +410,6 @@ to a function that generates a unique name." | |||
| 407 | (save-some-buffers (not compilation-ask-about-save) nil) | 410 | (save-some-buffers (not compilation-ask-about-save) nil) |
| 408 | (compile-internal compile-command "No more errors")) | 411 | (compile-internal compile-command "No more errors")) |
| 409 | 412 | ||
| 410 | ;; The system null device. (Should reference NULL_DEVICE from C.) | ||
| 411 | (defvar grep-null-device "/dev/null" "The system null device.") | ||
| 412 | |||
| 413 | (defun grep-process-setup () | 413 | (defun grep-process-setup () |
| 414 | "Set up `compilation-exit-message-function' for `grep'." | 414 | "Set up `compilation-exit-message-function' for `grep'." |
| 415 | (set (make-local-variable 'compilation-exit-message-function) | 415 | (set (make-local-variable 'compilation-exit-message-function) |