From 69d4d27f671f54c293d1ede4d2108a2cf2721524 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Jul 1994 19:00:42 +0000 Subject: [PATCH] (compilation-error-regexp-alist): Make separate regexp for Borland C++; the combined one matched too much. --- lisp/progmodes/compile.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 449a2ebf17a..a272a07de72 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -108,9 +108,6 @@ or when it is used with \\[next-error] or \\[compile-goto-error].") ;; foo.c:8: error message ;; or HP-UX 7.0 fc: ;; foo.f :16 some horrible error message - ;; or Borland C++: - ;; Error ping.c 15: Unable to open include file 'sys/types.h' - ;; Warning ping.c 68: Call to function 'func' with no prototype ;; ;; We refuse to match file:number:number ;; because we want to leave that for another case (see below, GNAT). @@ -118,8 +115,13 @@ or when it is used with \\[next-error] or \\[compile-goto-error].") ;; We'll insist that the number be followed by a colon or closing ;; paren, because otherwise this matches just about anything ;; containing a number with spaces around it. - ("\n\\(Error \\|Warning \\)?[ \t]*\\([^:( \t\n]+\\)\ -\[:(]?[ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3) + ("\n\\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3) + + ;; Borland C++: + ;; Error ping.c 15: Unable to open include file 'sys/types.h' + ;; Warning ping.c 68: Call to function 'func' with no prototype + ("\n\\(Error\\|Warning\\) \\([^:( \t\n]+\\)\ + \\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3) ;; 4.3BSD lint pass 2 ;; strcmp: variable # of args. llib-lc(359) :: /usr/src/foo/foo.c(8) -- 2.39.5