From xemacs-m  Mon Mar 10 20:23:31 1997
Received: from wmperry.in.aventail.com (wmperry@wmperry.oz.net [207.13.185.53])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA04803
	for <xemacs-beta@xemacs.org>; Mon, 10 Mar 1997 20:23:29 -0600 (CST)
Received: (from wmperry@localhost) by wmperry.in.aventail.com (8.7.6/8.7.3) id SAA02649; Mon, 10 Mar 1997 18:30:45 -0800
Date: Mon, 10 Mar 1997 18:30:45 -0800
Message-Id: <199703110230.SAA02649@wmperry.in.aventail.com>
From: "William M. Perry" <wmperry@aventail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: jens@lemming0.lem.uni-karlsruhe.de
Cc: xemacs-beta@xemacs.org
Subject: Re: Customize not working with font size anymore? -b98-
In-Reply-To: <m3k9nfw70i.fsf@jens.metrix.de>
References: <m3k9nfw70i.fsf@jens.metrix.de>
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;

Jens Lautenbacher writes:
>
>
>Sine 15-b98 I am no longer able to change my face's font's size via
>customize. I have a whole bunch of faces which were set to bigger
>sizes (headings etc), all of these are now at the 'default size.

  I have a sneaking suspicion this is my fault, since due to all the whining
and griping[1] about font.el overriding set-face-* functions, they are no
longer overriden by default.  Does this patch help?

-Bill P.

[1] Not that it wasn't valid :)

*** cus-face.el	1997/03/11 02:29:44	1.1
--- cus-face.el	1997/03/11 02:29:55
***************
*** 308,321 ****
      (let* ((font (apply 'face-font-name face args))
  	   (fontobj (font-create-object font)))
        (set-font-size fontobj size)
!       (apply 'set-face-font face fontobj args)))
  
    (defun custom-set-face-font-family (face family &rest args)
      "Set the font of FACE to FAMILY"
      (let* ((font (apply 'face-font-name face args))
  	   (fontobj (font-create-object font)))
        (set-font-family fontobj family)
!       (apply 'set-face-font face fontobj args)))
  
    (nconc custom-face-attributes
  	 '((:family (editable-field :format "Font Family: %v"
--- 308,321 ----
      (let* ((font (apply 'face-font-name face args))
  	   (fontobj (font-create-object font)))
        (set-font-size fontobj size)
!       (apply 'font-set-face-font face fontobj args)))
  
    (defun custom-set-face-font-family (face family &rest args)
      "Set the font of FACE to FAMILY"
      (let* ((font (apply 'face-font-name face args))
  	   (fontobj (font-create-object font)))
        (set-font-family fontobj family)
!       (apply 'font-set-face-font face fontobj args)))
  
    (nconc custom-face-attributes
  	 '((:family (editable-field :format "Font Family: %v"

