(compilation-mode-font-lock-keywords): Omake sometimes indents the

errors it prints, so allow all regexps to start with spaces.

2 files changed, 18 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7c9348c99a..2f2c72ca405 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-07-10  Sam Steingold  <sds@gnu.org>
+
+        * progmodes/compile.el (compilation-mode-font-lock-keywords):
+        Omake sometimes indents the errors it prints, so allow all
+        regexps to start with spaces.
+
 2009-07-10  Eli Zaretskii  <eliz@gnu.org>
 
         * cus-edit.el (customize-changed-options-previous-release): Bump
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 11428d2fe7a..cad19b70674 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -975,7 +975,17 @@ FMTS is a list of format specs for transforming the file name.
               (line (nth 2 item))
               (col (nth 3 item))
               (type (nth 4 item))
+              (pat (car item))
               end-line end-col fmt)
+          ;; omake reports some error indented, so skip the indentation.
+          ;; another solution is to modify (some?) regexps in
+          ;; `compilation-error-regexp-alist'.
+          ;; note that omake usage is not limited to ocaml and C (for stubs).
+          (unless (string-match (concat "^" (regexp-quote "^ *")) pat)
+            (setq pat (concat "^ *"
+                              (if (= ?^ (aref pat 0))
+                                  (substring pat 1)
+                                  pat))))
           (if (consp file)      (setq fmt (cdr file)      file (car file)))
           (if (consp line)      (setq end-line (cdr line) line (car line)))
           (if (consp col)       (setq end-col (cdr col)   col (car col)))
@@ -984,7 +994,7 @@ FMTS is a list of format specs for transforming the file name.
               ;; The old compile.el had here an undocumented hook that
               ;; allowed `line' to be a function that computed the actual
               ;; error location.  Let's do our best.
-              `(,(car item)
+              `(,pat
                 (0 (save-match-data
                      (compilation-compat-error-properties
                       (funcall ',line (cons (match-string ,file)
@@ -996,7 +1006,7 @@ FMTS is a list of format specs for transforming the file name.
             (unless (or (null (nth 5 item)) (integerp (nth 5 item)))
               (error "HYPERLINK should be an integer: %s" (nth 5 item)))
 
-            `(,(nth 0 item)
+            `(,pat
 
               ,@(when (integerp file)
                   `((,file ,(if (consp type)