# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1180112454 0
# Node ID 9c88240944adc5b23cd5dfbcf4e84f225ac61298
# Parent  506d3398a9662f9280dc8c5380357941d4603ee4
(define-derived-mode): Remove bogus compatibiity code.

diff -r 506d3398a966 -r 9c88240944ad lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 25 16:58:18 2007 +0000
+++ b/lisp/ChangeLog	Fri May 25 17:00:54 2007 +0000
@@ -1,5 +1,8 @@
 2007-05-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/derived.el (define-derived-mode): Remove bogus
+	compatibiity code.
+
 	* emacs-lisp/copyright.el (copyright-names-regexp): New var.
 	(copyright-update-year): Use it.
 
diff -r 506d3398a966 -r 9c88240944ad lisp/emacs-lisp/derived.el
--- a/lisp/emacs-lisp/derived.el	Fri May 25 16:58:18 2007 +0000
+++ b/lisp/emacs-lisp/derived.el	Fri May 25 17:00:54 2007 +0000
@@ -254,11 +254,7 @@
 	  ,@body
 	  )
 	 ;; Run the hooks, if any.
-	 ;; Make the generated code work in older Emacs versions
-	 ;; that do not yet have run-mode-hooks.
-	 (if (fboundp 'run-mode-hooks)
-	     (run-mode-hooks ',hook)
-	   (run-hooks ',hook))))))
+         (run-mode-hooks ',hook)))))
 
 ;; PUBLIC: find the ultimate class of a derived mode.