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

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 77330d2b66b05f688249e88fdbf58eb13ceb1cb4..096932eb5f07779c1884597afd7d0ec47c2b0b9e 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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)