[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/derived.el

[Juanma Barranquero]

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)