Mercurial > emacs
changeset 33186:c63d52fc1eb7
(after-setting-font-hook): Rename hooks -> hook.
(set-frame-font): Use the new name (and the old for compatibility).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 03 Nov 2000 22:15:51 +0000 |
| parents | 7630435cbccd |
| children | b8a47482f3cd |
| files | lisp/frame.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Fri Nov 03 22:13:18 2000 +0000 +++ b/lisp/frame.el Fri Nov 03 22:15:51 2000 +0000 @@ -490,7 +490,7 @@ "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 @@ (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.