diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-03 22:15:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-03 22:15:51 +0000 |
| commit | 72bf1a8b28e1bca15516f6629ba3296f4804b6ba (patch) | |
| tree | 49a64722da290060d6b2f9368b0e01ba925d7a1e | |
| parent | 82fdafde11cc2495cc0d4e263579aeb8b470dd11 (diff) | |
| download | emacs-72bf1a8b28e1bca15516f6629ba3296f4804b6ba.tar.gz | |
(after-setting-font-hook): Rename hooks -> hook.
(set-frame-font): Use the new name (and the old for compatibility).
| -rw-r--r-- | lisp/frame.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 81f29dfe230..5a9c276a2fe 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -490,7 +490,7 @@ The optional second argument PARAMETERS specifies additional frame parameters." "Functions to run after a frame is created. The functions are run with one arg, the newly created frame.") -(defvar after-setting-font-hooks nil +(defvar after-setting-font-hook nil "Functions to run after a frame's font has been changed.") ;; Alias, kept temporarily. @@ -733,7 +733,7 @@ To get the frame's current default font, use `frame-parameters'." (x-list-fonts "*" nil (selected-frame))))))) (modify-frame-parameters (selected-frame) (list (cons 'font font-name))) - (run-hooks 'after-setting-font-hooks)) + (run-hooks 'after-setting-font-hook 'after-setting-font-hooks)) (defun set-background-color (color-name) "Set the background color of the selected frame to COLOR-NAME. |