update.

[chise/xemacs-chise.git-] / lisp / cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 5f79527..403f806 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -202,8 +202,7 @@ If FRAME is nil, use the default face."
 
 (defun custom-set-face-font-size (face size &optional locale tags)
   "Set the font of FACE to SIZE."
-  ;; #### should this call have tags in it?
-  (let* ((font (apply 'face-font-name face (list locale)))
+  (let* ((font (apply 'face-font-name face locale))
         ;; Gag
         (fontobj (font-create-object font)))
     (set-font-size fontobj size)
@@ -218,8 +217,7 @@ If FRAME is nil, use the default face."
 
 (defun custom-set-face-font-family (face family &optional locale tags)
   "Set the font of FACE to FAMILY."
-  ;; #### should this call have tags in it?
-  (let* ((font (apply 'face-font-name face (list locale)))
+  (let* ((font (apply 'face-font-name face locale))
         ;; Gag
         (fontobj (font-create-object font)))
     (set-font-family fontobj family)