[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


From: SAITO Takuya
Subject: compilation-error-regexp-alist
Date: Sun, 17 Apr 2005 16:20:51 +0900 (JST)

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 (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]