Subject: bug#7785: rgrep is broken on woe32

From: Sam Steingold <[email-masked]>
Date: Wed, 5 Jan 2011 18:52:57 -0500

On Wed, Jan 5, 2011 at 6:49 PM, Sam Steingold <[email-masked]> 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>