fix a typo in the last patch

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index c44ddfdb242f3ceb059a320877bf92b91eacd8b4..5612e64c02dc5086e0aade1badbcdf060bcaa699 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -991,7 +991,7 @@ FMTS is a list of format specs for transforming the file name.
           ;; 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)))