changeset 12256:e50e5d419c51

(grep-null-device): Defined. (grep): Use grep-null-device.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Jun 1995 04:36:55 +0000
parents 41083bd094ac
children 29b6db180047
files lisp/progmodes/compile.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))