changeset 12256:e50e5d419c51

(grep-null-device): Defined. (grep): Use grep-null-device.

--- a/lisp/progmodes/compile.el	Fri Jun 16 01:59:08 1995 +0000
+++ b/lisp/progmodes/compile.el	Fri Jun 16 04:36:55 1995 +0000
@@ -298,7 +298,10 @@
   (interactive)
   (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.")
+
 ;;;###autoload
 (defun grep (command-args)
   "Run grep, with user-specified args, and collect output in a buffer.
@@ -310,7 +313,7 @@
   (interactive
    (list (read-from-minibuffer "Run grep (like this): "
 			       grep-command nil nil 'grep-history)))
-  (compile-internal (concat command-args " /dev/null")
+  (compile-internal (concat command-args " " grep-null-device)
 		    "No more grep hits" "grep"
 		    ;; Give it a simpler regexp to match.
 		    nil grep-regexp-alist))