diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-01-08 07:53:53 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-01-08 07:53:53 +0000 |
| commit | 049dcb6f8cba0727cc23122dc38d8c75965190c2 (patch) | |
| tree | e6c627b9e99b3ba8c4a47dd7c54fd496e1a5e2d7 /lisp | |
| parent | 1c58b439bfa0823ff1fd6e43eeba52d4e2fedbaf (diff) | |
| download | emacs-049dcb6f8cba0727cc23122dc38d8c75965190c2.tar.gz | |
Kevin Ryde <user42 at zip.com.au>
(compilation-error-regexp-alist-alist): For perl, allow "during global
destruction" at end.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 9 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a0825f79441..a31a97d3ced 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 6781862889c..444d3b44e5d 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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\ |