(define-derived-mode): Remove bogus compatibiity code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b55cb97ab2b890413e087ce7cba579af1d8b601..0d1d4d591103c6f5dafb0a26ae54e94a8e16e845 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 2b2cffc5a355a2196623b2645001cd34672d746d..5fc60cf516f6c6c07002b1c2c918ccb430e6f6ad 100644 (file)
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -254,11 +254,7 @@ No problems result if this variable is not bound.
          ,@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.