Index: emacs/lisp/emacs-lisp/derived.el
diff -c emacs/lisp/emacs-lisp/derived.el:1.10
emacs/lisp/emacs-lisp/derived.el:1.11
*** emacs/lisp/emacs-lisp/derived.el:1.10 Fri Jul 15 01:20:41 2005
--- emacs/lisp/emacs-lisp/derived.el Fri Jul 15 08:36:01 2005
***************
*** 382,387 ****
--- 382,393 ----
(derived-mode-merge-abbrev-tables old-table new-table)
(setq local-abbrev-table new-table)))
+ (defun derived-mode-run-hooks (mode)
+ "Run the mode hook for MODE."
+ (let ((hooks-name (derived-mode-hook-name mode)))
+ (if (boundp hooks-name)
+ (run-hooks hooks-name))))
+
;; Functions to merge maps and tables.
(defun derived-mode-merge-keymaps (old new)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
