[Emacs-diffs] /srv/bzr/emacs/trunk r104310: * lisp/progmodes/grep.el (grep-mode): Fix last change.

[Stefan Monnier]

------------------------------------------------------------
revno: 104310
fixes bug(s): http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8684
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-21 20:18:22 -0300
message:
  * lisp/progmodes/grep.el (grep-mode): Fix last change.
modified:
  lisp/ChangeLog
  lisp/progmodes/grep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-21 22:33:12 +0000
+++ b/lisp/ChangeLog    2011-05-21 23:18:22 +0000
@@ -1,3 +1,7 @@
+2011-05-21  Stefan Monnier  <address@hidden>
+
+       * progmodes/grep.el (grep-mode): Fix last change (bug#8684).
+
 2011-05-21  Glenn Morris  <address@hidden>
 
        * files.el (hack-local-variables-prop-line, hack-local-variables):

=== modified file 'lisp/progmodes/grep.el'
--- a/lisp/progmodes/grep.el    2011-05-17 18:14:30 +0000
+++ b/lisp/progmodes/grep.el    2011-05-21 23:18:22 +0000
@@ -698,7 +698,9 @@
        grep-hit-face)
   (set (make-local-variable 'compilation-error-regexp-alist)
        grep-regexp-alist)
-  (set (make-local-variable 'compilation-directory-matcher) nil)
+  ;; 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-process-setup-function)
        'grep-process-setup)
   (set (make-local-variable 'compilation-disable-input) t)