procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(derived-mode-hooks-name): Use -hook, not -hooks, in mode hook name.

Browse source 
(derived-mode-hook-name): Renamed from ...-hooks; caller changed.
This commit is contained in:
Richard M. Stallman 1998-07-03 21:37:43 +00:00
parent 39e7e36ac5
commit e2154af9ff
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/derived.el
View file

@ -74,7 +74,7 @@
;; default, but may be redefined by the user to contain special
;; commands (ie. setting local variables like 'outline-regexp')
;; **NOTE: do not use this option -- it will soon be obsolete.
;; - run anything assigned to 'hypertext-mode-hooks' (obsolete, but
;; - run anything assigned to 'hypertext-mode-hook' (obsolete, but
;; supported for the sake of compatibility).
;;
;; The advantages of this system are threefold. First, text mode is
@ -166,7 +166,7 @@ been generated automatically, with a reference to the keymap."
;;; ; any -- this will soon be
;;; ; obsolete.
;;; (derived-mode-run-setup-function '(, child))
; Run the hooks, if any.
; Run the hook, if any.
(derived-mode-run-hooks '(, child))))))
@ -187,9 +187,9 @@ Use the `derived-mode-parent' property of the symbol to trace backwards."
"Construct a setup-function name based on a mode name."
(intern (concat (symbol-name mode) "-setup")))
(defsubst derived-mode-hooks-name (mode)
"Construct a hooks name based on a mode name."
(intern (concat (symbol-name mode) "-hooks")))
(defsubst derived-mode-hook-name (mode)
"Construct the mode hook name based on mode name MODE."
(intern (concat (symbol-name mode) "-hook")))
(defsubst derived-mode-map-name (mode)
"Construct a map name based on a mode name."
@ -293,9 +293,9 @@ Always merge its parent into it, since the merge is non-destructive."
;;; (funcall fname))))
(defun derived-mode-run-hooks (mode)
"Run the hooks if they exist."
"Run the mode hook for MODE."
(let ((hooks-name (derived-mode-hooks-name mode)))
(let ((hooks-name (derived-mode-hook-name mode)))
(if (boundp hooks-name)
(run-hooks hooks-name))))