Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!PIT-MANAGER.MIT.EDU!jik
From: jik@PIT-MANAGER.MIT.EDU (Jonathan I. Kamens)
Newsgroups: gnu.emacs.bug
Subject: compile.el doesn't recognize High C errors
Message-ID: <9002140202.AA16064@pit-manager.MIT.EDU>
Date: 14 Feb 90 02:02:46 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 30


  The following patch to dist-18.55/lisp/compile.el will enable the
recognition of the error messages generated by IBM's High C compiler,
so that the next-error function will do the right thing when using
compile on an IBM machine with High C.

Jonathan Kamens			              USnail:
MIT Project Athena				11 Ashford Terrace
jik@Athena.MIT.EDU				Allston, MA  02134
Office: 617-253-8495			      Home: 617-782-0710

*** compile.el.orig	Tue Feb 13 20:59:34 1990
--- compile.el	Tue Feb 13 21:00:34 1990
***************
*** 44,50 ****
  ;; The filename excludes colons to avoid confusion when error message
  ;; starts with digits.
  (defvar compilation-error-regexp
!   "\\([^ :\n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
    "Regular expression for filename/linenumber in error in compilation log.")
  
  (defun compile (command)
--- 44,50 ----
  ;; The filename excludes colons to avoid confusion when error message
  ;; starts with digits.
  (defvar compilation-error-regexp
!   "\\([^ \n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)\\|\\(\"[^ \n]+\",L[0-9]+\\)"
    "Regular expression for filename/linenumber in error in compilation log.")
  
  (defun compile (command)