From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.bugs Subject: bug#3928: compilation-mode not matching perl and more [regression] Date: Mon, 27 Jul 2009 11:13:07 +1000 Message-ID: <871vo39bdo.fsf_-_@blah.blah> References: <873a8l3pdn.fsf@blah.blah> Reply-To: Kevin Ryde , 3928@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1248658675 10176 80.91.229.12 (27 Jul 2009 01:37:55 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 27 Jul 2009 01:37:55 +0000 (UTC) To: 3928@emacsbugs.donarmstrong.com Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Jul 27 03:37:48 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MVF9u-0003L4-RS for geb-bug-gnu-emacs@m.gmane.org; Mon, 27 Jul 2009 03:37:48 +0200 Original-Received: from localhost ([127.0.0.1]:35771 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MVF9u-0004hT-5G for geb-bug-gnu-emacs@m.gmane.org; Sun, 26 Jul 2009 21:37:46 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MVF9n-0004f1-MC for bug-gnu-emacs@gnu.org; Sun, 26 Jul 2009 21:37:39 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MVF9i-0004YH-As for bug-gnu-emacs@gnu.org; Sun, 26 Jul 2009 21:37:38 -0400 Original-Received: from [199.232.76.173] (port=51091 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MVF9i-0004Xv-3D for bug-gnu-emacs@gnu.org; Sun, 26 Jul 2009 21:37:34 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:45115) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MVF9h-0005Wt-Hg for bug-gnu-emacs@gnu.org; Sun, 26 Jul 2009 21:37:33 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n6R1bVZe031043; Sun, 26 Jul 2009 18:37:31 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.14.3/8.14.3/Submit) id n6R1K5Fs028298; Sun, 26 Jul 2009 18:20:05 -0700 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: Kevin Ryde Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Mon, 27 Jul 2009 01:20:05 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: followup 3928 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by 3928-submit@emacsbugs.donarmstrong.com id=B3928.124865722527456 (code B ref 3928); Mon, 27 Jul 2009 01:20:05 +0000 Original-Received: (at 3928) by emacsbugs.donarmstrong.com; 27 Jul 2009 01:13:45 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from mailout1.pacific.net.au (mailout1-1.pacific.net.au [61.8.2.208]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n6R1Dcke027451 for <3928@emacsbugs.donarmstrong.com>; Sun, 26 Jul 2009 18:13:40 -0700 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.2.163]) by mailout1.pacific.net.au (Postfix) with ESMTP id 71F9A4FCF1E for <3928@emacsbugs.donarmstrong.com>; Mon, 27 Jul 2009 11:13:37 +1000 (EST) Original-Received: from blah.blah (ppp2D41.dyn.pacific.net.au [61.8.45.65]) by mailproxy2.pacific.net.au (Postfix) with ESMTP id 5620427442 for <3928@emacsbugs.donarmstrong.com>; Mon, 27 Jul 2009 11:13:36 +1000 (EST) Original-Received: from gg by blah.blah with local (Exim 4.69) (envelope-from ) id 1MVEm4-0006vu-Mr for 3928@emacsbugs.donarmstrong.com; Mon, 27 Jul 2009 11:13:08 +1000 In-Reply-To: (Emacs bug Tracking System's message of "Sat, 25 Jul 2009 12:50:04 +0000") User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.3 (gnu/linux) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 2) Resent-Date: Sun, 26 Jul 2009 21:37:38 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:29644 Archived-At: --=-=-= The ada entry is afflicted too (it's supposed to match the second part of its compilation.txt, its first part is matched by the gnu pattern). So, 2009-07-27 Kevin Ryde * progmodes/compile.el (compilation-error-regexp-alist-alist): In ada, aix, ftnchek, mips-1, mips-2, perl, sun, 4bsd entries add ".*" so as to match in the middle of a line, now that there's a "^" anchor is again enforced by compilation-mode-font-lock-keywords. These patterns were otherwise failing to match anything at all. In the 4bsd entry remove the "^" from inside the \\(\\) grouping since it's now unnecessary and since inside a group it isn't recognised by the omake indentation hack in compilation-mode-font-lock-keywords (meaning it wouldn't work with indentation). --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=compile.el.cope-with-anchoring-2.diff *** compile.el 11 Jul 2009 07:12:48 +1000 1.495 --- compile.el 26 Jul 2009 14:43:04 +1000 *************** *** 170,179 **** of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) (ada ! "\\(warning: .*\\)? at \\([^ \n]+\\):\\([0-9]+\\)$" 2 3 nil (1)) (aix ! " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) (ant "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):[0-9]+:[0-9]+:\\)?\ --- 170,179 ---- of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) (ada ! "\\(warning:\\)?.* at \\([^ \n]+\\):\\([0-9]+\\)$" 2 3 nil (1)) (aix ! ".* in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) (ant "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):[0-9]+:[0-9]+:\\)?\ *************** *** 207,213 **** "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) (ftnchek ! "\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" 4 2 3 (1)) (iar --- 207,213 ---- "^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) (ftnchek ! "\\(Warning\\)?.* line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" 4 2 3 (1)) (iar *************** *** 284,292 **** ;; Should be lint-1, lint-2 (SysV lint) (mips-1 ! " (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) (mips-2 ! " in \\([^()\n ]+\\)(\\([0-9]+\\))$" 1 2) (msft ;; AFAWK, The message may be a "warning", "error", or "fatal error". --- 284,292 ---- ;; Should be lint-1, lint-2 (SysV lint) (mips-1 ! ".* (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1) (mips-2 ! ".* in \\([^()\n ]+\\)(\\([0-9]+\\))$" 1 2) (msft ;; AFAWK, The message may be a "warning", "error", or "fatal error". *************** *** 308,314 **** ;; warnings" in recent perl when breaking circular references ;; during program or thread exit. (perl ! " at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| \ during global destruction\\.$\\)" 1 2) (php --- 308,314 ---- ;; warnings" in recent perl when breaking circular references ;; during program or thread exit. (perl ! "XXXXXXXXXX.* at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| \ during global destruction\\.$\\)" 1 2) (php *************** *** 332,338 **** nil 1 nil (3) nil (2 (compilation-face '(3)))) (sun ! ": \\(?:ERROR\\|WARNIN\\(G\\)\\|REMAR\\(K\\)\\) \\(?:[[:alnum:] ]+, \\)?\ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" 3 4 5 (1 . 2)) --- 332,338 ---- nil 1 nil (3) nil (2 (compilation-face '(3)))) (sun ! ".*: \\(?:ERROR\\|WARNIN\\(G\\)\\|REMAR\\(K\\)\\) \\(?:[[:alnum:] ]+, \\)?\ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" 3 4 5 (1 . 2)) *************** *** 345,351 **** 1 2 nil (4)) (4bsd ! "\\(?:^\\|:: \\|\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\ \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) (gcov-file --- 345,351 ---- 1 2 nil (4)) (4bsd ! "^\\(?:\\|.*:: \\|.*\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\ \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) (gcov-file --=-=-=--