Re: compile.el, using grep-find when find-program is not "find"

[Richard Stallman]

Does this patch give correct behavior?

*** compile.el.~1.281.~ Fri Oct 10 00:22:02 2003
--- compile.el  Sat Nov  8 16:53:54 2003
***************
*** 752,760 ****
                (grep-find-use-xargs
                 (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)))))))
    (unless grep-tree-command
      (setq grep-tree-command
          (let* ((glen (length grep-program))
--- 752,765 ----
                (grep-find-use-xargs
                 (format "%s . -type f -print | xargs %s"
                           find-program grep-command))
!               (t (let ((beginning 
!                         (format "%s . -type f -exec " find-program))
!                        (end
!                         (format "%s {} %s \\;"
!                                grep-command null-device)))
!                    (cons
!                     (concat beginning end)
!                     (length beginning)))))))
    (unless grep-tree-command
      (setq grep-tree-command
          (let* ((glen (length grep-program))