(compilation-error-regexp-alist-alist):

Accept "fatal error" from MSFT.
Reported by Jared Finder <jfinder@crypticstudios.com>.

2 files changed, 22 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c63ad22bef..e3da73d0175 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/compile.el (compilation-error-regexp-alist-alist):
+	Accept "fatal error" from MSFT.
+	Reported by Jared Finder <jfinder@crypticstudios.com>.
+
 2008-01-14  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* smerge-mode.el (smerge-auto): New function.
@@ -17,9 +23,9 @@
 
 2008-01-13  Martin Rudalics  <rudalics@gmx.at>
 
-	* mail/rmail.el (rmail-convert-to-babyl-format): Remove
-	save-excursion to avoid infinite looping.  Reported by: dnz
-	<dnz@bk.ru>.
+	* mail/rmail.el (rmail-convert-to-babyl-format):
+	Remove save-excursion to avoid infinite looping.
+	Reported by: dnz <dnz@bk.ru>.
 
 2008-01-12  Glenn Morris  <rgm@gnu.org>
 
@@ -157,7 +163,7 @@
 	(vc-status-current-file): Likewise.
 	(vc-ensure-vc-buffer): Understand vc-status mode.
 
-        * vc-hg.el (vc-hg-dir-status): Don't pass -A to "hg status".
+	* vc-hg.el (vc-hg-dir-status): Don't pass -A to "hg status".
 
 2008-01-09  Glenn Morris  <rgm@gnu.org>
 
@@ -402,8 +408,7 @@
 	* vc-arch.el (vc-arch-root): Only set a property if the file is
 	managed by this backend.
 
-	* vc-hg.el (vc-hg-state): Support the new status code for
-	up-to-date.
+	* vc-hg.el (vc-hg-state): Support the new status code for up-to-date.
 
 2008-01-04  Tassilo Horn  <tassilo@member.fsf.org>
 
@@ -413,8 +418,8 @@
 
 	* doc-view.el (doc-view-scroll-up-or-next-page)
 	(doc-view-scroll-down-or-previous-page): Use image-scroll-up and
-	image-scroll-down instead of the non-image equivalents.  Don't
-	rely on a signalled condition but switch pages when scrolling
+	image-scroll-down instead of the non-image equivalents.
+	Don't rely on a signalled condition but switch pages when scrolling
 	doesn't change the vertical position anymore.
 	(doc-view-mode-map): Remap scroll-{up,down} to
 	image-scroll-{up,down}.
@@ -432,7 +437,8 @@
 	* bs.el (bs--sort-by-mode, bs--get-mode-name):
 	* imenu.el (imenu-add-to-menubar):
 	* makesum.el (make-command-summary):
-	* mouse.el (mouse-major-mode-menu, mouse-popup-menubar, mouse-buffer-menu):
+	* mouse.el (mouse-major-mode-menu, mouse-popup-menubar)
+	(mouse-buffer-menu):
 	* msb.el (msb--mode-menu-cond):
 	* calc/calc-embed.el (calc-do-embedded):
 	* emacs-lisp/helper.el (Helper-describe-mode):
@@ -447,7 +453,8 @@
 	* progmodes/ada-xref.el (ada-prj-find-prj-file):
 	* progmodes/ada-mode.el (comment-region):
 	* calendar/todo-mode.el (todo-insert-item):
-	* bookmark.el (bookmark-buffer-name): Test major-mode rather than mode-name.
+	* bookmark.el (bookmark-buffer-name):
+	Test major-mode rather than mode-name.
 
 2008-01-04  Richard Stallman  <rms@gnu.org>
 
@@ -523,8 +530,8 @@
 
 2008-01-02  Karl Fogel  <kfogel@red-bean.com>
 
-	Change a return type, for greater extensibility.  See
-	http://lists.gnu.org/archive/html/emacs-devel/2007-12/msg01077.html
+	Change a return type, for greater extensibility.
+	See http://lists.gnu.org/archive/html/emacs-devel/2007-12/msg01077.html
 	and its thread for discussion leading to this change.
 
 	* emacs-cvs/lisp/bookmark.el:
@@ -586,7 +593,7 @@
 
 2008-01-01  Eric S. Raymond  <esr@snark.thyrsus.com>
 
-	* vc-svn.el (vc-svn-parse-status): Set the 'unregisted property
+	* vc-svn.el (vc-svn-parse-status): Set the `unregisted' property
 	correctly.
 
 	* vc.el (vc-dired-hook):  Speed tuning.  Replace a vc-backend call
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 772d35f94f0..f02a7756419 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -272,8 +272,9 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
      " in \\([^()\n ]+\\)(\\([0-9]+\\))$" 1 2)
 
     (msft
+     ;; AFAWK, The message may be a "warning", "error", or "fatal error".
      "^\\([0-9]+>\\)?\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \
-: \\(?:error\\|warnin\\(g\\)\\) C[0-9]+:" 2 3 nil (4))
+: \\(?:warnin\\(g\\)\\|[a-z ]+\\) C[0-9]+:" 2 3 nil (4))
 
     (oracle
      "^\\(?:Semantic error\\|Error\\|PCC-[0-9]+:\\).* line \\([0-9]+\\)\