From 09843b4a110fd3c9d59d89727436ead1171e6948 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jun 1995 04:36:55 +0000 Subject: [PATCH] (grep-null-device): Defined. (grep): Use grep-null-device. --- lisp/progmodes/compile.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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)) -- 2.39.2