address@hidden: grep-tree doesn't shell-quote-argument]

[Richard Stallman]

Since M-x grep does not do this, I am not sure it is desirable
to make M-x grep-tree incompatible with it.  But I don't use
grep-tree.  What do others think?

------- Start of forwarded message -------
Mail-Followup-To: address@hidden
To: address@hidden
From: Magnus Henoch <address@hidden>
Date: Mon, 17 Apr 2006 23:17:14 +0200
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Mail-Copies-To: never
Jabber-Id: address@hidden
Subject: grep-tree doesn't shell-quote-argument
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=failed 
        version=3.0.4

- --=-=-=

grep-tree doesn't quote its regexp argument to protect it from the
shell.  This makes it harder to use * and ? in regexps.  I propose
this patch:

2006-04-17  Magnus Henoch  <address@hidden>

        * progmodes/grep.el (grep-tree): Call shell-quote-argument on
          regexp.


- --=-=-=
Content-Type: text/x-patch
Content-Disposition: inline

*** orig/lisp/progmodes/grep.el
- --- mod/lisp/progmodes/grep.el
***************
*** 631,637 ****
          (setq files (cdr mf)))))
    (let ((command-args (grep-expand-command-macros
                       grep-tree-command
!                      (setq grep-tree-last-regexp regexp)
                       (and files (concat "-name '" files "'"))
                       (if subdirs
                           (if (stringp subdirs)
- --- 632,638 ----
          (setq files (cdr mf)))))
    (let ((command-args (grep-expand-command-macros
                       grep-tree-command
!                      (shell-quote-argument (setq grep-tree-last-regexp 
regexp))
                       (and files (concat "-name '" files "'"))
                       (if subdirs
                           (if (stringp subdirs)

- --=-=-=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug

- --=-=-=--
------- End of forwarded message -------