diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/derived.el | 6 |
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b55cb97ab2..0d1d4d59110 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2007-05-25 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2007-05-25 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * emacs-lisp/derived.el (define-derived-mode): Remove bogus | ||
| 4 | compatibiity code. | ||
| 5 | |||
| 3 | * emacs-lisp/copyright.el (copyright-names-regexp): New var. | 6 | * emacs-lisp/copyright.el (copyright-names-regexp): New var. |
| 4 | (copyright-update-year): Use it. | 7 | (copyright-update-year): Use it. |
| 5 | 8 | ||
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 2b2cffc5a35..5fc60cf516f 100644 --- 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. | |||
| 254 | ,@body | 254 | ,@body |
| 255 | ) | 255 | ) |
| 256 | ;; Run the hooks, if any. | 256 | ;; Run the hooks, if any. |
| 257 | ;; Make the generated code work in older Emacs versions | 257 | (run-mode-hooks ',hook))))) |
| 258 | ;; that do not yet have run-mode-hooks. | ||
| 259 | (if (fboundp 'run-mode-hooks) | ||
| 260 | (run-mode-hooks ',hook) | ||
| 261 | (run-hooks ',hook)))))) | ||
| 262 | 258 | ||
| 263 | ;; PUBLIC: find the ultimate class of a derived mode. | 259 | ;; PUBLIC: find the ultimate class of a derived mode. |
| 264 | 260 | ||