From: Benjamin Rutt <brutt+news@bloomington.in.us>
Subject: M-x grep looks for executable-command-find-unix-p that isn't there
Date: Tue, 03 Feb 2004 16:48:53 -0500 [thread overview]
Message-ID: <wc3isinbzqy.fsf@mu.cis.ohio-state.edu> (raw)
In cvs emacs, M-x grep gives the message:
grep-compute-defaults: Symbol's function definition is void:
executable-command-find-unix-p
and indeed, there's no such function on my system, or anywhere in the
lisp/ source tree.
I think it's related to this change:
Index: grep.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -c -c -r1.4 -r1.5
*** grep.el 3 Jan 2004 21:11:43 -0000 1.4
--- grep.el 29 Jan 2004 17:54:36 -0000 1.5
***************
*** 318,324 ****
'gnu)))
(unless grep-find-command
(setq grep-find-command
! (cond ((eq grep-find-use-xargs 'gnu)
(format "%s . -type f -print0 | xargs -0 -e %s"
find-program grep-command))
(grep-find-use-xargs
--- 318,329 ----
'gnu)))
(unless grep-find-command
(setq grep-find-command
! (cond ((not (executable-command-find-unix-p "find"))
! (message
! (concat "compile.el: Unix type find(1) not found. "
! "Please set `grep-find-command'."))
! nil)
! ((eq grep-find-use-xargs 'gnu)
(format "%s . -type f -print0 | xargs -0 -e %s"
find-program grep-command))
(grep-find-use-xargs
***************
*** 443,453 ****
(progn
(unless grep-find-command
(grep-compute-defaults))
! (list (read-from-minibuffer "Run find (like this): "
! grep-find-command nil nil
! 'grep-find-history))))
! (let ((null-device nil)) ; see grep
! (grep command-args)))
(defun grep-expand-command-macros (command &optional regexp files dir excl case-fold)
"Patch grep COMMAND replacing <D>, etc."
--- 448,464 ----
(progn
(unless grep-find-command
(grep-compute-defaults))
! (if grep-find-command
! (list (read-from-minibuffer "Run find (like this): "
! grep-find-command nil nil
! 'grep-find-history))
! ;; No default was set
! (read-string
! "compile.el: No `grep-find-command' command available. Press RET.")
! (list nil))))
! (when (and grep-find-command command-args)
! (let ((null-device nil)) ; see grep
! (grep command-args))))
(defun grep-expand-command-macros (command &optional regexp files dir excl case-fold)
"Patch grep COMMAND replacing <D>, etc."
--
Benjamin
reply other threads:[~2004-02-03 21:48 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=wc3isinbzqy.fsf@mu.cis.ohio-state.edu \
--to=brutt+news@bloomington.in.us \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).