(compilation-parse-errors): Use

compilation-buffer-p instead of testing major-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6302fe40b9f8032ec5ce5c9581fe12951a73dbcd..0b9cd6a826a9ebac0fc9791721fb7115a17de6e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-18  Gerd Moellmann  <gerd@gnu.org>
+
+       * progmodes/compile.el (compilation-parse-errors): Use
+       compilation-buffer-p instead of testing major-mode.
+
 1999-11-18  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
        * mail/rmailedit.el (rmail-cease-edit): Run rmail-mode-hook.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index efe7851b1865f7a64a0c5df011b589c46abe3af4..dca54808e18daba5f46a726e4f66742989206afd 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1773,7 +1773,7 @@ See variable `compilation-parse-errors-function' for the interface it uses."
     ;; Don't reparse messages already seen at last parse.
     (goto-char compilation-parsing-end)
     (when (and (bobp)
-              (eq major-mode 'compilation-mode))
+              (compilation-buffer-p (current-buffer)))
       (setq compilation-current-file nil) ; No current file at start.
       ;; Don't parse the first two lines as error messages.
       ;; This matters for grep.