I don't understand this piece of code at the end of
define-derived-mode in lisp/emacs-lisp/derived.el:
,----
| ;; 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))))))
`----
Is the expansion of this define-derive-mode macro ever run in older
Emacsen? Wouldn't delay-mode-hooks (used unconditionally) be missing
as well, then?
Shall I just delete the test?
Lute.
Index: lisp/emacs-lisp/derived.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/derived.el,v
retrieving revision 1.6
diff -c -r1.6 derived.el
*** lisp/emacs-lisp/derived.el 21 May 2005 22:35:35 -0000 1.6
--- lisp/emacs-lisp/derived.el 9 Jun 2005 15:39:48 -0000
***************
*** 235,245 ****
,@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))))))
;; PUBLIC: find the ultimate class of a derived mode.
--- 235,241 ----
,@body
)
;; Run the hooks, if any.
! (run-mode-hooks ',hook)))))
;; PUBLIC: find the ultimate class of a derived mode.
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
