From 005e3bb6654fc8a1e0d477158741f6762b7da7fb Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Wed, 19 Sep 2001 20:59:24 +0000 Subject: [PATCH] w32 find cannot be used with `grep-find'. --- lisp/ChangeLog | 26 ++++++++++++++++---------- lisp/progmodes/compile.el | 15 ++++++++++----- 2 files changed, 26 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 084eec6027e..d8c11530098 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-09-19 Sam Steingold + + w32 find cannot be used with `grep-find'. + * progmodes/compile.el (find-program): New variable. + (grep-compute-defaults): Use it to set `grep-find-command'. + 2001-09-19 Gerd Moellmann * ps-bdf.el (bdf-read-bitmap): Initialize returned values to @@ -85,10 +91,10 @@ * simple.el: Comment out change of 2001-09-13. 2001-09-13 Michael Kifer - + * viper-cmd.el (viper-replace-char-subr, viper-envelop-ESC-key): inhibit quit. - + 2001-09-13 Eli Zaretskii * files.el (make-auto-save-file-name): If long file names are not @@ -97,7 +103,7 @@ 2001-09-13 Gerd Moellmann - * ps-print.el (ps-print-region, ps-print-region-with-faces) + * ps-print.el (ps-print-region, ps-print-region-with-faces) (ps-nb-pages-region): Signal an error if called interactively and the mark is not active. @@ -156,18 +162,18 @@ * mail/sendmail.el (mail-send): Obey mail-send-nonascii when enable-multibyte-characters = nil. From Hallvard B Furuseth . - + 2001-09-09 Michael Kifer - + * ediff-init.el (ediff-highest-priority): bug fix. * viper-cmd.el (viper-special-read-and-insert-char): new function that reads a character and uses the current input method or iso-accents when appropriate. - + * viper.el and all others: corrections to the comment blocks at the top. - + 2001-09-09 Eli Zaretskii * info.el (Info-goto-node): Doc fix. @@ -186,7 +192,7 @@ the entries, to keep the line length balanced for loaddefs.el. 2001-09-07 Dr Francis J. Wright - + * comint.el (comint-send-input): Handle comint-process-echoes differently. @@ -201,7 +207,7 @@ computation. 2001-09-07 Gerd Moellmann - + * server.el (server-switch-buffer): Use get-window-with-predicate. * textmodes/refer.el (refer-find-entry-internal): Use @@ -255,7 +261,7 @@ * comint.el (comint-send-input): Change help-echo. From "Dr Francis J. Wright" . - + * bookmark.el (bookmark-write-file): Bind print-length and print-level to nil. From Tom Capey . diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 1d75a671d1a..769c356449f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -437,6 +437,10 @@ Otherwise, it saves all modified buffers without asking." "The default grep program for `grep-command' and `grep-find-command'. This variable's value takes effect when `grep-compute-defaults' is called.") +(defvar find-program "find" + "The default find program for `grep-find-command'. +This variable's value takes effect when `grep-compute-defaults' is called.") + (defvar grep-find-use-xargs nil "Whether \\[grep-find] uses the `xargs' utility by default. @@ -592,12 +596,13 @@ to a function that generates a unique name." (unless grep-find-command (setq grep-find-command (cond ((eq grep-find-use-xargs 'gnu) - (format "find . -type f -print0 | xargs -0 -e %s" - grep-command)) + (format "%s . -type f -print0 | xargs -0 -e %s" + find-program grep-command)) (grep-find-use-xargs - (format "find . -type f -print | xargs %s" grep-command)) - (t (cons (format "find . -type f -exec %s {} %s \\;" - grep-command null-device) + (format "%s . -type f -print | xargs %s" + find-program grep-command)) + (t (cons (format "%s . -type f -exec %s {} %s \\;" + find-program grep-command null-device) (+ 22 (length grep-command)))))))) ;;;###autoload -- 2.39.2