From: Glenn Morris <rgm@gnu.org>
Date: Mon, 7 Jan 2013 01:23:26 +0000 (-0800)
Subject: * lisp/progmodes/compile.el (compilation-parse-errors): Fix typo.
X-Git-Tag: emacs-24.2.92~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06364e6463b654038ca3290fec6a37d1ca69700c;p=emacs.git

* lisp/progmodes/compile.el (compilation-parse-errors): Fix typo.

Fixes: debbugs:13369
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54ce07b1fb2..1d045425720 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-07  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/compile.el (compilation-parse-errors):
+	Fix typo.  (Bug#13369)
+
 2013-01-07  Vitalie Spinu  <spinuvit@gmail.com>  (tiny change)
 
 	* comint.el (comint-send-input): Check size of buffer before
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9fffeaaabe2..f383e02bc7f 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1280,7 +1280,7 @@ to `compilation-error-regexp-alist' if RULES is nil."
       ;; 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)))))