* lisp/progmodes/grep.el (grep-mode): Fix it for good!

Fixes: debbugs:8684

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91c51b7925dadf3a63547297e36dfe1635e46efb..a759eb749efc0e56922a98faaade9fafb104bf4c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/grep.el (grep-mode): Fix it for good (bug#8684)!
+
 2011-05-22  Glenn Morris  <rgm@gnu.org>
 
        * files.el (hack-local-variables-prop-line): Small simplifications.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 04b54b1d662520d3a308184b584d87134450b235..db8e82193b340fdd4c5c6061350cc618d766ef8f 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -700,7 +700,7 @@ This function is called from `compilation-filter-hook'."
        grep-regexp-alist)
   ;; compilation-directory-matcher can't be nil, so we set it to a regexp that
   ;; can never match.
-  (set (make-local-variable 'compilation-directory-matcher) "\\`a\\`")
+  (set (make-local-variable 'compilation-directory-matcher) '("\\`a\\`"))
   (set (make-local-variable 'compilation-process-setup-function)
        'grep-process-setup)
   (set (make-local-variable 'compilation-disable-input) t)