[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111148: * lisp/progmodes/compile.el (compilation-parse-errors): Fix typo.

[Glenn Morris]

------------------------------------------------------------
revno: 111148
fixes bug: http://debbugs.gnu.org/13369
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Sun 2013-01-06 17:23:26 -0800
message:
  * lisp/progmodes/compile.el (compilation-parse-errors): Fix typo.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-07 01:06:39 +0000
+++ b/lisp/ChangeLog    2013-01-07 01:23:26 +0000
@@ -1,3 +1,8 @@
+2013-01-07  Glenn Morris  <address@hidden>
+
+       * progmodes/compile.el (compilation-parse-errors):
+       Fix typo.  (Bug#13369)
+
 2013-01-07  Vitalie Spinu  <address@hidden>  (tiny change)
 
        * comint.el (comint-send-input): Check size of buffer before

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-01-01 09:11:05 +0000
+++ b/lisp/progmodes/compile.el 2013-01-07 01:23:26 +0000
@@ -1280,7 +1280,7 @@
       ;; whether or not omake's own error messages are recognized.
       (cond
        ((not (memq 'omake compilation-error-regexp-alist)) nil)
-       ((string-match "\\`\\([^^]\\|^\\( \\*\\|\\[\\)\\)" pat)
+       ((string-match "\\`\\([^^]\\|\\^\\( \\*\\|\\[\\)\\)" pat)
         nil) ;; Not anchored or anchored but already allows empty spaces.
        (t (setq pat (concat "^ *" (substring pat 1)))))