bug#7785: rgrep is broken on woe32

[Sam Steingold]

On Wed, Jan 5, 2011 at 6:49 PM, Sam Steingold <sds@gnu.org> wrote:
>
>  (let ((tail process-environment))
>    (while tail
>      (when (string-match "^PATH=" (car tail))
>        (setcar tail (concat "PATH="
>                             (mapconcat (lambda (s)
>                                          (subst-char-in-string ?/ ?\\ s))
>                                        exec-path ";")))
>        (setq tail nil))        ; done
>      (setq tail (cdr tail))))

replaced with
  (setenv "PATH"
          (mapconcat (lambda (s) (subst-char-in-string ?/ ?\\ s))
                     exec-path ";"))

same error:

> find: paths must precede expression
> Usage: find [-H] [-L] [-P] [path...] [expression]

-- 
Sam Steingold <http://sds.podval.org>