Re: Customize testers wanted

[Per Abrahamsen <abraham@dina.kvl.dk>]

Jens Lautenbacher <jens@lemcbed.lem.uni-karlsruhe.de> writes:

> But one should also be able to enter the family (Helevetica, Courier etc)

Try the patch below.  However adding *all* the possible attributes is
going to be crowded.

Index: custom.el
===================================================================
RCS file: /home/user_22/abraham/cvs/custom/custom.el,v
retrieving revision 1.22
diff -c -r1.22 custom.el
*** 1.22	1996/11/22 17:59:39
--- custom.el	1996/11/23 14:31:05
***************
*** 380,387 ****
        (set-font-size fontobj size)
        (apply 'set-face-font face fontobj args)))
  
    (nconc custom-face-attributes
! 	 '((:size (editable-field :format "Size: %v")
  		  set-face-font-size))))
  
  (defun custom-face-attribites-set (face frame &rest atts)
--- 380,396 ----
        (set-font-size fontobj size)
        (apply 'set-face-font face fontobj args)))
  
+   (defun 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 "Family: %v") 
! 		    set-face-font-family)
! 	   (:size (editable-field :format "Size: %v")
  		  set-face-font-size))))
  
  (defun custom-face-attribites-set (face frame &rest atts)