From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 18 Nov 1999 15:57:55 +0000 (+0000)
Subject: (compilation-parse-errors): Use
X-Git-Tag: emacs-pretest-21.0.90~6062
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dd1cf67c27706972c9b2317729a11c92aa77ca1;p=emacs.git

(compilation-parse-errors): Use
compilation-buffer-p instead of testing major-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6302fe40b9f..0b9cd6a826a 100644
--- 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 efe7851b186..dca54808e18 100644
--- 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.