(after-setting-font-hook): Rename hooks -> hook.

(set-frame-font): Use the new name (and the old for compatibility).

diff --git a/lisp/frame.el b/lisp/frame.el
index 81f29dfe230040a5f83465ca11d72aba75965a92..5a9c276a2fe72f7d5c67a1175b875df72dbbe641 100644 (file)
--- 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.