From 54bfce8a12c3c8cc19d8b84158ec008caa36820e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Apr 1997 22:17:59 +0000 Subject: [PATCH] (grep-null-device): Move before first use. --- lisp/progmodes/compile.el | 6 +++--- 1 file 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.") '(("^\\([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) -- 2.39.2