compilation-error-regexp-alist

[SAITO Takuya]

When I add the form (REGEXP FILE FUNCTION) to compilation-error-regexp-alist,
compilation-error-face is put on the wrong place.
I think this patch should fix it.

Index: lisp/progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.351
diff -u -r1.351 compile.el
--- lisp/progmodes/compile.el   10 Apr 2005 06:19:30 -0000      1.351
+++ lisp/progmodes/compile.el   17 Apr 2005 06:33:40 -0000
@@ -733,11 +733,12 @@
              ;; allowed `line' to be a function that computed the actual
              ;; error location.  Let's do our best.
              `(,(car item)
-               (0 (compilation-compat-error-properties
-                   (funcall ',line (cons (match-string ,file)
-                                         (cons default-directory
-                                               ',(nthcdr 4 item)))
-                            ,(if col `(match-string ,col)))))
+               (0 (save-match-data
+                    (compilation-compat-error-properties
+                     (funcall ',line (cons (match-string ,file)
+                                           (cons default-directory
+                                                 ',(nthcdr 4 item)))
+                              ,(if col `(match-string ,col))))))
                (,file compilation-error-face t))

            (unless (or (null (nth 5 item)) (integerp (nth 5 item)))


In GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-04-17 on reed
Distributor `The X.Org Foundation', version 11.0.60700000
configured using `configure '--prefix=/usr' '--libexecdir=/usr/lib' 
'--localstatedir=/var' '--infodir=/usr/lib/emacs/22.0.50/info' 
'--with-x-toolkit=athena' '--without-xim''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: ja_JP.eucJP
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: C
  value of $LANG: ja_JP.eucJP
  locale-coding-system: japanese-iso-8bit
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  mouse-wheel-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t
  next-error-follow-minor-mode:  Fol