From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Siegfried Heintze" <siegfried@heintze.com>
Newsgroups: gmane.emacs.help
Subject: Re: How to edit compilation-error-regexp-alist in .emacs file?
Date: Sun, 22 Sep 2002 19:00:30 -0700
Organization: Posted via Supernews, http://www.supernews.com
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <uosph31od0k22c@corp.supernews.com>
References: <uoc46v801lvd66@corp.supernews.com> <vafn0qhd84n.fsf@lucy.cs.uni-dortmund.de>
NNTP-Posting-Host: localhost.gmane.org
X-Trace: main.gmane.org 1032743185 18382 127.0.0.1 (23 Sep 2002 01:06:25 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 23 Sep 2002 01:06:25 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17tHg8-0004mM-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Mon, 23 Sep 2002 03:06:24 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17tHg5-0008Qb-00; Sun, 22 Sep 2002 21:06:21 -0400
Original-Path: shelby.stanford.edu!nntp.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!newsswitch.lcs.mit.edu!snoopy.risq.qc.ca!newsfeed.news2me.com!newsfeed-west.nntpserver.com!hub1.meganetnews.com!nntpserver.com!telocity-west!TELOCITY!sn-xit-03!sn-xit-06!sn-post-02!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-Mimeole: Produced By Microsoft MimeOLE V6.00.2600.0000
Original-X-Complaints-To: abuse@supernews.com
Original-Lines: 17
Original-Xref: nntp.stanford.edu gnu.emacs.help:105156
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:1711
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:1711

I found an example of eval-after-load in the perl module and tried to modify
it for me.

Why does this not work?
(if (fboundp 'eval-after-load)
    (eval-after-load
     "mode-compile"
     '(progn (setcar (car compilation-error-regexp-alist) (concat
"\\(\\[Error\\] \\|\\[Fatal Error\\] \\)?"  (caar
compilation-error-regexp-alist)))
  (setcdr (car compilation-error-regexp-alist) '(3 4 7))
     (push '("^\\([-_a-zA-Z0-9]+\\.[-_a-zA-Z0-9]+\\)[ \t]*([
\t]*\\([0-9]+\\)[ \t]*,[ \t]*\\([0-9]+\\)[ \t]*)[ \t]*:[
\t]*\\(error\\|fatal error\\|warning\\)[ \t]+\\([^ ]+\\):"  1 2 3)
compilation-error-regexp-alist))  )  )