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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf74fc3..5206d12 100644 (file)
--- 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 e9846d5..2c14bb6 100644 (file)
--- 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))))