M-x grep looks for executable-command-find-unix-p that isn't there

M-x grep looks for executable-command-find-unix-p that isn't there

[Benjamin Rutt]

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