# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1189177449 0
# Node ID 5ee0e4e08f916371868bbe513adacc95e480c258
# Parent  08763df0973140a54bf23f7739d9aaebe4f5e3b2
(byte-compile-log-file): Check major-mode via derived-mode-p.

diff -r 08763df09731 -r 5ee0e4e08f91 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 07 15:02:40 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 07 15:04:09 2007 +0000
@@ -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 -r 08763df09731 -r 5ee0e4e08f91 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Sep 07 15:02:40 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Sep 07 15:04:09 2007 +0000
@@ -1037,8 +1037,7 @@
 	   (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))))