(byte-compile-log-file): Check major-mode via derived-mode-p.

2 files changed, 8 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf74fc34f06..5206d124625 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/bytecomp.el (byte-compile-log-file): Check major-mode via
+        derived-mode-p.
+
 2007-09-07  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
         * progmodes/autoconf.el (autoconf-definition-regexp):
@@ -10,8 +15,8 @@
         (browse-url-encode-url, browse-url-elinks)
         (browse-url-elinks-sentinel): New functions.
         (browse-url-file-url, browse-url-netscape, browse-url-mozilla)
-        (browse-url-firefox, browse-url-galeon, browse-url-epiphany): Use
-        new function browse-url-encode-url.
+        (browse-url-firefox, browse-url-galeon, browse-url-epiphany):
+        Use new function browse-url-encode-url.
 
 2007-09-07  Glenn Morris  <rgm@gnu.org>
 
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e9846d5875f..2c14bb66609 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1037,8 +1037,7 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
            (setq byte-compile-last-logged-file byte-compile-current-file
                  byte-compile-last-warned-form nil)
            ;; Do this after setting default-directory.
-           (unless (eq major-mode 'compilation-mode)
-             (compilation-mode))
+           (unless (derived-mode-p 'compilation-mode) (compilation-mode))
            (compilation-forget-errors)
            pt))))