From 72bf1a8b28e1bca15516f6629ba3296f4804b6ba Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 3 Nov 2000 22:15:51 +0000 Subject: (after-setting-font-hook): Rename hooks -> hook. (set-frame-font): Use the new name (and the old for compatibility). --- lisp/frame.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/frame.el') diff --git a/lisp/frame.el b/lisp/frame.el index 81f29dfe23..5a9c276a2f 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. -- cgit v1.2.3