# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 973289751 0
# Node ID c63d52fc1eb7f70bbdc7865e56bc7d8b29c2bffe
# Parent  7630435cbccdf62a95e6b562f6a69dbf0127fcd9
(after-setting-font-hook): Rename hooks -> hook.
(set-frame-font): Use the new name (and the old for compatibility).

diff -r 7630435cbccd -r c63d52fc1eb7 lisp/frame.el
--- 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.