# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1255402759 0
# Node ID a72293bb4ac8501c665d8d042f3f2d83bff873f7
# Parent  49a18cece067bd9c5f461f8fa453a8b393fc71d7
fix a typo in the last patch

diff -r 49a18cece067 -r a72293bb4ac8 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Oct 13 01:13:08 2009 +0000
+++ b/lisp/progmodes/compile.el	Tue Oct 13 02:59:19 2009 +0000
@@ -991,7 +991,7 @@
           ;; note that omake usage is not limited to ocaml and C (for stubs).
           (when (and (= ?^ (aref pat 0)) ; anchored: starts with "^"
                      ;; but does not allow an arbitrary number of leading spaces
-                     (not (and (= ?  (aref pat 1)) (= ?* (aref pat 1)))))
+                     (not (and (= ?  (aref pat 1)) (= ?* (aref pat 2)))))
             (setq pat (concat "^ *" (substring pat 1))))
 	  (if (consp file)	(setq fmt (cdr file)	  file (car file)))
 	  (if (consp line)	(setq end-line (cdr line) line (car line)))