# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859933079 0
# Node ID 6ee6f94817dc27a981fb003f1bff3b5fa99ecc33
# Parent  fc3829279a06a395f1bee9570325b138aa449cd4
(grep-null-device): Move before first use.

diff -r fc3829279a06 -r 6ee6f94817dc lisp/progmodes/compile.el
--- 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)