(derived-mode-run-hooks): Reinstalled, as it is needed for pre-21 compatibility.

Thanks to Stefan Monnier for pointing this out.
This commit is contained in:
Juanma Barranquero 2005-07-15 08:39:57 +00:00
parent dc524e8ba5
commit 3c8dd9b993
2 changed files with 7 additions and 2 deletions

View file

@ -382,6 +382,12 @@ Always merge its parent into it, since the merge is non-destructive."
(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)