From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 16 Jun 1995 04:36:55 +0000 (+0000)
Subject: (grep-null-device): Defined.
X-Git-Tag: emacs-19.34~3603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09843b4a110fd3c9d59d89727436ead1171e6948;p=emacs.git

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

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2d8bc6acd6c..4a0890af682 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -298,7 +298,10 @@ to a function that generates a unique name."
   (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 @@ easily repeat a grep command."
   (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))