[Emacs-diffs] /srv/bzr/emacs/trunk r103212: * lisp/progmodes/grep.el (grep-mode-font-lock-keywords): Adjust to

[Stefan Monnier]

------------------------------------------------------------
revno: 103212
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2011-02-10 14:13:31 -0500
message:
  * lisp/progmodes/grep.el (grep-mode-font-lock-keywords): Adjust to
  `message' -> `compilation-message' rename.
modified:
  lisp/ChangeLog
  lisp/progmodes/grep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-10 16:56:00 +0000
+++ b/lisp/ChangeLog    2011-02-10 19:13:31 +0000
@@ -1,5 +1,8 @@
 2011-02-10  Stefan Monnier  <address@hidden>
 
+       * progmodes/grep.el (grep-mode-font-lock-keywords): Adjust to
+       `message' -> `compilation-message' rename (bug#8004).
+
        Move keymap initialization into declaration.
        * textmodes/enriched.el (enriched-mode-map):
        * textmodes/bib-mode.el (bib-mode-map):

=== modified file 'lisp/progmodes/grep.el'
--- a/lisp/progmodes/grep.el    2011-01-28 21:11:19 +0000
+++ b/lisp/progmodes/grep.el    2011-02-10 19:13:31 +0000
@@ -388,13 +388,13 @@
       1 grep-error-face)
      ;; remove match from grep-regexp-alist before fontifying
      ("^Grep[/a-zA-z]* started.*"
-      (0 '(face nil message nil help-echo nil mouse-face nil) t))
+      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t))
      ("^Grep[/a-zA-z]* finished \\(?:(\\(matches found\\))\\|with \\(no 
matches found\\)\\).*"
-      (0 '(face nil message nil help-echo nil mouse-face nil) t)
+      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t)
       (1 compilation-info-face nil t)
       (2 compilation-warning-face nil t))
      ("^Grep[/a-zA-z]* \\(exited 
abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code 
\\([0-9]+\\)\\)?.*"
-      (0 '(face nil message nil help-echo nil mouse-face nil) t)
+      (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t)
       (1 grep-error-face)
       (2 grep-error-face nil t))
      ("^.+?-[0-9]+-.*\n" (0 grep-context-face))