procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Kevin Ryde <user42 at zip.com.au>

Browse source 
(compilation-error-regexp-alist-alist): For perl, allow "during global
destruction" at end.
This commit is contained in:
Glenn Morris 2008-01-08 07:53:53 +00:00
parent 1c58b439bf
commit 049dcb6f8c
3 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
etc/ChangeLog
View file

@ -1,3 +1,7 @@
2008-01-08 Kevin Ryde <user42@zip.com.au>
* compilation.txt (perl): Add a "during global destruction" sample.
2008-01-06 Dan Nicolaescu <dann@ics.uci.edu>
* PROBLEMS:

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-01-08 Kevin Ryde <user42@zip.com.au>
* progmodes/compile.el (compilation-error-regexp-alist-alist):
For perl, allow "during global destruction" at end.
2008-01-08 Glenn Morris <rgm@gnu.org>
* diff-mode.el (diff-end-of-hunk): Don't match empty lines in

9
lisp/progmodes/compile.el
View file

@ -1,7 +1,8 @@
;;; compile.el --- run compiler as inferior of Emacs, parse error messages
;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;; Free Software Foundation, Inc.
;; Authors: Roland McGrath <roland@gnu.org>,
;; Daniel Pfeiffer <occitan@esperanto.org>
@ -280,8 +281,12 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
\\(?:,\\| in\\| of\\)? file \\(.*?\\):?$"
3 1 2)
;; "during global destruction": This comes out under "use
;; warnings" in recent perl when breaking circular references
;; during program or thread exit.
(perl
" at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\)" 1 2)
" at \\([^ \n]+\\) line \\([0-9]+\\)\\(?:[,.]\\|$\\| \
during global destruction\\.$\\)" 1 2)
(rxp
"^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\