(grep-default-command): Take empty string

for tag if all other methods yield nil.  Shell-quote the tag.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d47e404cf0e563045d74657ab96e08f12716a1e6..a7c72f3bd6833d55dd32a7473a580ed1253c621a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-11-03  Thien-Thi Nguyen  <ttn@gnu.org>
 
+       * progmodes/grep.el (grep-default-command): Take empty string
+       for tag if all other methods yield nil.  Shell-quote the tag.
+
        * vc.el (vc-annotate-display-autoscale): Add prefix-arg
        spec in `interactive' form, and mention it in the docstring.
        Also, make sure point is at bol after calling `annotate-time'.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 71927642a968b76a6480c79f84d7b96364846da9..7a13ddba6edf0c172af2c651e6b845981bd4f01e 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -436,9 +436,11 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
 
 (defun grep-default-command ()
   (let ((tag-default
-        (funcall (or find-tag-default-function
-                     (get major-mode 'find-tag-default-function)
-                     'find-tag-default)))
+         (shell-quote-argument
+          (or (funcall (or find-tag-default-function
+                           (get major-mode 'find-tag-default-function)
+                           'find-tag-default))
+              "")))
        (sh-arg-re "\\(\\(?:\"\\(?:[^\"]\\|\\\\\"\\)+\"\\|'[^']+'\\|[^\"' \t\n]\\)+\\)")
        (grep-default (or (car grep-history) grep-command)))
     ;; Replace the thing matching for with that around cursor.
@@ -460,7 +462,7 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
                                              0 (match-beginning 2))
                                   " *."
                                   (file-name-extension buffer-file-name))))
-      (replace-match (or tag-default "") t t grep-default 1))))
+      (replace-match tag-default t t grep-default 1))))
 
 ;;;###autoload
 (defun grep (command-args &optional highlight-regexp)