🚀 go-pugleaf

A small but annoying bug in GNU 18.55 compilation.

Function compile1 in compile.el goes to the trouble of remembering the
local value of compilation-error-regexp from the instigating buffer:

(defun compile1 (command error-message &optional name-of-mode)
 .
 .
 .
  (let ((regexp compilation-error-regexp))
    (save-excursion
      (set-buffer "*compilation*")
      (make-local-variable 'compilation-error-regexp)
      (setq compilation-error-regexp regexp)))

but then blows it later:
 .
 .
 .
      (setq default-directory thisdir)
      (fundamental-mode)
      (setq mode-name (or name-of-mode "Compilation"))
 .
 .
 .

Our local pacal compiler has output which cannot be parsed by the
default compilation-error-regexp, therefore our local pascal mode sets
up compilation-error-regexp appropriately, but we would like to have
it local to the mode, so we can also parse output from other
compilers.

For now I have commented out the offending (fundamental-mode) in our
local compile.el.

sja.
uunet!mitel!spock!stephena