[bpt/emacs.git] / lisp / cus-face.el

;;; cus-face.el --- customization support for faces
;;
;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
;; Version: Emacs

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:
;;
;; See `custom.el'.

;;; Code:

(defalias 'custom-facep 'facep)

;;; Declaring a face.

;;;###autoload
(defun custom-declare-face (face spec doc &rest args)
  "Like `defface', but FACE is evaluated as a normal argument."
  (unless (get face 'face-defface-spec)
    (put face 'face-defface-spec spec)
    (when (fboundp 'facep)
      (unless (facep face)
	;; If the user has already created the face, respect that.
	(let ((value (or (get face 'saved-face) spec))
	      (frames (frame-list))
	      frame)
	  ;; Create global face.
	  (make-empty-face face)
	  ;; Create frame local faces
	  (while frames
	    (setq frame (car frames)
		  frames (cdr frames))
	    (face-spec-set face value frame)))
	;; When making a face after frames already exist
	(if (memq window-system '(x w32))
	    (make-face-x-resource-internal face))))
    (when (and doc (null (face-documentation face)))
      (set-face-documentation face (purecopy doc)))
    (custom-handle-all-keywords face args 'custom-face)
    (run-hooks 'custom-define-hook))
  face)

;;; Face attributes.

;; Below, nil is used in widget specifications for `unspecified' face
;; attributes and `off' is used instead of nil attribute values.  The
;; reason for this is that nil corresponds to the result you get when
;; looking up an attribute in a defface spec that isn't contained in
;; the spec.

(defconst custom-face-attributes
  '((:family
     (choice :tag "Font family"
	     :help-echo "Font family or fontset alias name."
	     (const :tag "*" nil)
	     (string :tag "Family")))
    
    (:width
     (choice :tag "Width"
	     :help-echo "Font width."
	     (const :tag "*" nil)
	     (const :tag "compressed" condensed)
	     (const :tag "condensed" condensed)
	     (const :tag "demiexpanded" semi-expanded)
	     (const :tag "expanded" expanded)
	     (const :tag "extracondensed" extra-condensed)
	     (const :tag "extraexpanded" extra-expanded)
	     (const :tag "medium" normal)
	     (const :tag "narrow" condensed)
	     (const :tag "normal" normal)
	     (const :tag "regular" normal)
	     (const :tag "semicondensed" semi-condensed)
	     (const :tag "semiexpanded" semi-expanded)
	     (const :tag "ultracondensed" ultra-condensed)
	     (const :tag "ultraexpanded" ultra-expanded)
	     (const :tag "wide" extra-expanded)))
    
    (:height
     (choice :tag "Height"
	     :help-echo "Face's font height."
	     (const :tag "*" nil)
	     (integer :tag "Height in 1/10 pt")
	     (number :tag "Scale" 1.0)))

    (:weight
     (choice :tag "Weight"
	     :help-echo "Font weight."
	     (const :tag "*" nil)
	     (const :tag "black" ultra_bold)
	     (const :tag "bold" bold)
	     (const :tag "book" semi-light)
	     (const :tag "demibold" semi-bold)
	     (const :tag "extralight" extra-light)
	     (const :tag "extrabold" extra-bold)
	     (const :tag "heavy" extra-bold)
	     (const :tag "light" light)
	     (const :tag "medium" normal)
	     (const :tag "normal" normal)
	     (const :tag "regular" normal)
	     (const :tag "semibold" semi-bold)
	     (const :tag "semilight" semi-light)
	     (const :tag "ultralight" ultra-light)
	     (const :tag "ultrabold" ultra-bold)))
    
    (:slant
     (choice :tag "Slant"
	     :help-echo "Font slant."
	     (const :tag "*" nil)
	     (const :tag "italic" italic)
	     (const :tag "oblique" oblique)
	     (const :tag "normal" normal)))
    
    (:underline
     (choice :tag "Underline"
	     :help-echo "Control text underlining."
	     (const :tag "*" nil)
	     (const :tag "On" t)
	     (const :tag "Off" off)
	     (color :tag "Colored")))
    
    (:overline
     (choice :tag "Overline"
	     :help-echo "Control text overlining."
	     (const :tag "*" nil)
	     (const :tag "On" t)
	     (const :tag "Off" off)
	     (color :tag "Colored")))
    
    (:strike-through
     (choice :tag "Strike-through"
	     :help-echo "Control text strike-through."
	     (const :tag "*" nil)
	     (const :tag "On" t)
	     (const :tag "Off" off)
	     (color :tag "Colored")))
    
    (:box
     ;; Fixme: this can probably be done better.
     (choice :tag "Box around text"
	     :help-echo "Control box around text."
	     (const :tag "*" nil)
	     (const :tag "Off" off)
	     (list :tag "Box"
		   :value (:line-width 2 :color "grey75" :style released-button)
		   (const :format "" :value :line-width)
		   (integer :tag "Width")
		   (const :format "" :value :color)
		   (choice :tag "Color" (const :tag "*" nil) color)
		   (const :format "" :value :style)
		   (choice :tag "Style"
			   (const :tag "Raised" released-button)
			   (const :tag "Sunken" pressed-button)
			   (const :tag "None" nil))))
     ;; filter to make value suitable for customize
     (lambda (real-value)
       (if (null real-value)
	   'off
	 (let ((lwidth
		(or (and (consp real-value) (plist-get real-value :line-width))
		    (and (integerp real-value) real-value)
		    1))
	       (color
		(or (and (consp real-value) (plist-get real-value :color))
		    (and (stringp real-value) real-value)
		    nil))
	       (style
		(and (consp real-value) (plist-get real-value :style))))
	   (list :line-width lwidth :color color :style style))))
     ;; filter to make customized-value suitable for storing
     (lambda (cus-value)
       (cond ((null cus-value)
	      'unspecified)
	     ((eq cus-value 'off)
	      nil)
	     (t
	      (let ((lwidth (plist-get cus-value :line-width))
		    (color (plist-get cus-value :color))
		    (style (plist-get cus-value :style)))
		(cond ((and (null color) (null style))
		       lwidth)
		      ((and (null lwidth) (null style))
		       ;; actually can't happen, because LWIDTH is always an int
		       color)
		      (t
		       ;; Keep as a plist, but remove null entries
		       (nconc (and lwidth `(:line-width ,lwidth))
			      (and color  `(:color ,color))
			      (and style  `(:style ,style))))))))))
    
    (:inverse-video
     (choice :tag "Inverse-video"
	     :help-echo "Control whether text should be in inverse-video."
	     (const :tag "*" nil)
	     (const :tag "On" t)
	     (const :tag "Off" off)))
    
    (:foreground
     (choice :tag "Foreground"
	     :help-echo "Set foreground color."
	     (const :tag "*" nil)
	     (color :tag "Color")))
    
    (:background
     (choice :tag "Background"
	     :help-echo "Set background color."
	     (const :tag "*" nil)
	     (color :tag "Color")))
    
    (:stipple
     (choice :tag "Stipple"
	     :help-echo "Background bit-mask"
	     (const :tag "*" nil)
	     (const :tag "None" off)
	     (file :tag "File"
		   :help-echo "Name of bitmap file."
		   :must-match t)))

    (:inherit
     (repeat :tag "Inherit"
	     :help-echo "List of faces to inherit attributes from."
	     (face :Tag "Face" default))
     ;; filter to make value suitable for customize
     (lambda (real-value)
       (cond ((or (null real-value) (eq real-value 'unspecified))
	      nil)
	     ((symbolp real-value)
	      (list real-value))
	     (t
	      real-value)))
     ;; filter to make customized-value suitable for storing
     (lambda (cus-value)
       (if (and (consp cus-value) (null (cdr cus-value)))
	   (car cus-value)
	 cus-value))))
       
  "Alist of face attributes.

The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
where KEY is the name of the attribute, TYPE is a widget type for
editing the attribute, PRE-FILTER is a function to make the attribute's
value suitable for the customization widget, and POST-FILTER is a
function to make the customized value suitable for storing.  PRE-FILTER
and POST-FILTER are optional.

The PRE-FILTER should take a single argument, the attribute value as
stored, and should return a value for customization (using the
customization type TYPE).

The POST-FILTER should also take a single argument, the value after
being customized, and should return a value suitable for setting the
given face attribute.")


(defun custom-face-attributes-get (face frame)
  "For FACE on FRAME, return an alternating list describing its attributes.
The list has the form (KEYWORD VALUE KEYWORD VALUE...).
Each keyword should be listed in `custom-face-attributes'.

If FRAME is nil, use the global defaults for FACE."
  (let ((attrs custom-face-attributes)
	plist)
    (while attrs
      (let* ((attribute (car (car attrs)))
	     (value (face-attribute face attribute frame)))
	(setq attrs (cdr attrs))
	(unless (or (eq value 'unspecified)
		    (and (null value) (memq attribute '(:inherit))))
	  (setq plist (cons attribute (cons value plist))))))
    plist))

;;; Initializing.

;;;###autoload
(defun custom-set-faces (&rest args)
  "Initialize faces according to user preferences.
The arguments should be a list where each entry has the form:

  (FACE SPEC [NOW [COMMENT]])

SPEC is stored as the saved value for FACE.
If NOW is present and non-nil, FACE is created now, according to SPEC.
COMMENT is a string comment about FACE.

See `defface' for the format of SPEC."
  (while args
    (let ((entry (car args)))
      (if (listp entry)
	  (let ((face (nth 0 entry))
		(spec (nth 1 entry))
		(now (nth 2 entry))
		(comment (nth 3 entry)))
	    (put face 'saved-face spec)
	    (put face 'saved-face-comment comment)
	    (when now
	      (put face 'force-face t))
	    (when (or now (facep face))
	      (put face 'face-comment comment)
	      (make-empty-face face)
	      (face-spec-set face spec))
	    (setq args (cdr args)))
	;; Old format, a plist of FACE SPEC pairs.
	(let ((face (nth 0 args))
	      (spec (nth 1 args)))
	  (put face 'saved-face spec))
	(setq args (cdr (cdr args)))))))

;;; The End.

(provide 'cus-face)

;;; cus-face.el ends here
Commit	Line	Data
e8af40ee	1	;;; cus-face.el --- customization support for faces
d543e20b	2	;;
51a1edab	3	;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
d543e20b PA	4	;;
	5	;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
	6	;; Keywords: help, faces
5f0cfe8b	7	;; Version: Emacs
d543e20b	8
6c283d44	9	;; This file is part of GNU Emacs.
d543e20b	10
6c283d44 RS	11	;; GNU Emacs is free software; you can redistribute it and/or modify
	12	;; it under the terms of the GNU General Public License as published by
	13	;; the Free Software Foundation; either version 2, or (at your option)
	14	;; any later version.
d543e20b	15
6c283d44 RS	16	;; GNU Emacs is distributed in the hope that it will be useful,
	17	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;; GNU General Public License for more details.
d543e20b	20
6c283d44 RS	21	;; You should have received a copy of the GNU General Public License
	22	;; along with GNU Emacs; see the file COPYING. If not, write to the
	23	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	24	;; Boston, MA 02111-1307, USA.
d543e20b	25
6c283d44 RS	26	;;; Commentary:
	27	;;
	28	;; See `custom.el'.
d543e20b	29
6c283d44	30	;;; Code:
d543e20b	31
da0b1f56	32	(defalias 'custom-facep 'facep)
ccd0d40c	33
d543e20b PA	34	;;; Declaring a face.
	35
	36	;;;###autoload
	37	(defun custom-declare-face (face spec doc &rest args)
	38	"Like `defface', but FACE is evaluated as a normal argument."
6c283d44 RS	39	(unless (get face 'face-defface-spec)
6c283d44 RS	40	(put face 'face-defface-spec spec)
d543e20b	41	(when (fboundp 'facep)
6c283d44	42	(unless (facep face)
d543e20b PA	43	;; If the user has already created the face, respect that.
d543e20b PA	44	(let ((value (or (get face 'saved-face) spec))
6c283d44	45	(frames (frame-list))
d543e20b PA	46	frame)
	47	;; Create global face.
	48	(make-empty-face face)
d543e20b PA	49	;; Create frame local faces
	50	(while frames
	51	(setq frame (car frames)
	52	frames (cdr frames))
971e48ca RS	53	(face-spec-set face value frame)))
	54	;; When making a face after frames already exist
	55	(if (memq window-system '(x w32))
	56	(make-face-x-resource-internal face))))
209ddde3	57	(when (and doc (null (face-documentation face)))
08449ec1	58	(set-face-documentation face (purecopy doc)))
d543e20b PA	59	(custom-handle-all-keywords face args 'custom-face)
	60	(run-hooks 'custom-define-hook))
	61	face)
	62
da0b1f56 GM	63	;;; Face attributes.
	64
	65	;; Below, nil is used in widget specifications for `unspecified' face
	66	;; attributes and `off' is used instead of nil attribute values. The
	67	;; reason for this is that nil corresponds to the result you get when
	68	;; looking up an attribute in a defface spec that isn't contained in
	69	;; the spec.
d543e20b PA	70
d543e20b PA	71	(defconst custom-face-attributes
da0b1f56 GM	72	'((:family
	73	(choice :tag "Font family"
	74	:help-echo "Font family or fontset alias name."
	75	(const :tag "*" nil)
51a1edab	76	(string :tag "Family")))
da0b1f56 GM	77
	78	(:width
	79	(choice :tag "Width"
	80	:help-echo "Font width."
	81	(const :tag "*" nil)
	82	(const :tag "compressed" condensed)
	83	(const :tag "condensed" condensed)
	84	(const :tag "demiexpanded" semi-expanded)
	85	(const :tag "expanded" expanded)
	86	(const :tag "extracondensed" extra-condensed)
	87	(const :tag "extraexpanded" extra-expanded)
	88	(const :tag "medium" normal)
	89	(const :tag "narrow" condensed)
	90	(const :tag "normal" normal)
	91	(const :tag "regular" normal)
	92	(const :tag "semicondensed" semi-condensed)
	93	(const :tag "semiexpanded" semi-expanded)
	94	(const :tag "ultracondensed" ultra-condensed)
	95	(const :tag "ultraexpanded" ultra-expanded)
51a1edab	96	(const :tag "wide" extra-expanded)))
da0b1f56 GM	97
	98	(:height
	99	(choice :tag "Height"
	100	:help-echo "Face's font height."
	101	(const :tag "*" nil)
6bca3005	102	(integer :tag "Height in 1/10 pt")
51a1edab	103	(number :tag "Scale" 1.0)))
6bca3005	104
da0b1f56 GM	105	(:weight
	106	(choice :tag "Weight"
	107	:help-echo "Font weight."
	108	(const :tag "*" nil)
	109	(const :tag "black" ultra_bold)
	110	(const :tag "bold" bold)
	111	(const :tag "book" semi-light)
	112	(const :tag "demibold" semi-bold)
	113	(const :tag "extralight" extra-light)
	114	(const :tag "extrabold" extra-bold)
	115	(const :tag "heavy" extra-bold)
	116	(const :tag "light" light)
	117	(const :tag "medium" normal)
	118	(const :tag "normal" normal)
	119	(const :tag "regular" normal)
	120	(const :tag "semibold" semi-bold)
	121	(const :tag "semilight" semi-light)
	122	(const :tag "ultralight" ultra-light)
51a1edab	123	(const :tag "ultrabold" ultra-bold)))
da0b1f56 GM	124
	125	(:slant
	126	(choice :tag "Slant"
	127	:help-echo "Font slant."
	128	(const :tag "*" nil)
	129	(const :tag "italic" italic)
	130	(const :tag "oblique" oblique)
51a1edab	131	(const :tag "normal" normal)))
da0b1f56 GM	132
	133	(:underline
	134	(choice :tag "Underline"
	135	:help-echo "Control text underlining."
	136	(const :tag "*" nil)
	137	(const :tag "On" t)
	138	(const :tag "Off" off)
51a1edab	139	(color :tag "Colored")))
da0b1f56 GM	140
	141	(:overline
	142	(choice :tag "Overline"
	143	:help-echo "Control text overlining."
	144	(const :tag "*" nil)
	145	(const :tag "On" t)
	146	(const :tag "Off" off)
51a1edab	147	(color :tag "Colored")))
da0b1f56 GM	148
	149	(:strike-through
	150	(choice :tag "Strike-through"
	151	:help-echo "Control text strike-through."
	152	(const :tag "*" nil)
	153	(const :tag "On" t)
	154	(const :tag "Off" off)
51a1edab	155	(color :tag "Colored")))
da0b1f56 GM	156
da0b1f56 GM	157	(:box
1743c17a	158	;; Fixme: this can probably be done better.
da0b1f56 GM	159	(choice :tag "Box around text"
da0b1f56 GM	160	:help-echo "Control box around text."
51a1edab MB	161	(const :tag "*" nil)
51a1edab MB	162	(const :tag "Off" off)
da0b1f56	163	(list :tag "Box"
36b80a0d	164	:value (:line-width 2 :color "grey75" :style released-button)
1743c17a	165	(const :format "" :value :line-width)
da0b1f56	166	(integer :tag "Width")
1743c17a DL	167	(const :format "" :value :color)
	168	(choice :tag "Color" (const :tag "*" nil) color)
	169	(const :format "" :value :style)
	170	(choice :tag "Style"
	171	(const :tag "Raised" released-button)
	172	(const :tag "Sunken" pressed-button)
	173	(const :tag "None" nil))))
51a1edab MB	174	;; filter to make value suitable for customize
51a1edab MB	175	(lambda (real-value)
91fc9992 MB	176	(if (null real-value)
	177	'off
	178	(let ((lwidth
	179	(or (and (consp real-value) (plist-get real-value :line-width))
	180	(and (integerp real-value) real-value)
	181	1))
	182	(color
	183	(or (and (consp real-value) (plist-get real-value :color))
	184	(and (stringp real-value) real-value)
	185	nil))
	186	(style
	187	(and (consp real-value) (plist-get real-value :style))))
	188	(list :line-width lwidth :color color :style style))))
36b80a0d MB	189	;; filter to make customized-value suitable for storing
36b80a0d MB	190	(lambda (cus-value)
91fc9992 MB	191	(cond ((null cus-value)
	192	'unspecified)
	193	((eq cus-value 'off)
	194	nil)
	195	(t
	196	(let ((lwidth (plist-get cus-value :line-width))
	197	(color (plist-get cus-value :color))
	198	(style (plist-get cus-value :style)))
	199	(cond ((and (null color) (null style))
	200	lwidth)
	201	((and (null lwidth) (null style))
	202	;; actually can't happen, because LWIDTH is always an int
	203	color)
	204	(t
	205	;; Keep as a plist, but remove null entries
	206	(nconc (and lwidth `(:line-width ,lwidth))
	207	(and color `(:color ,color))
	208	(and style `(:style ,style))))))))))
da0b1f56 GM	209
	210	(:inverse-video
	211	(choice :tag "Inverse-video"
	212	:help-echo "Control whether text should be in inverse-video."
	213	(const :tag "*" nil)
	214	(const :tag "On" t)
51a1edab	215	(const :tag "Off" off)))
da0b1f56 GM	216
	217	(:foreground
	218	(choice :tag "Foreground"
	219	:help-echo "Set foreground color."
	220	(const :tag "*" nil)
51a1edab	221	(color :tag "Color")))
da0b1f56 GM	222
	223	(:background
	224	(choice :tag "Background"
	225	:help-echo "Set background color."
	226	(const :tag "*" nil)
51a1edab	227	(color :tag "Color")))
da0b1f56 GM	228
	229	(:stipple
	230	(choice :tag "Stipple"
675f1fcb	231	:help-echo "Background bit-mask"
da0b1f56	232	(const :tag "*" nil)
675f1fcb MB	233	(const :tag "None" off)
	234	(file :tag "File"
	235	:help-echo "Name of bitmap file."
	236	:must-match t)))
6bca3005 MB	237
	238	(:inherit
	239	(repeat :tag "Inherit"
	240	:help-echo "List of faces to inherit attributes from."
	241	(face :Tag "Face" default))
51a1edab MB	242	;; filter to make value suitable for customize
	243	(lambda (real-value)
	244	(cond ((or (null real-value) (eq real-value 'unspecified))
	245	nil)
	246	((symbolp real-value)
	247	(list real-value))
	248	(t
	249	real-value)))
	250	;; filter to make customized-value suitable for storing
	251	(lambda (cus-value)
	252	(if (and (consp cus-value) (null (cdr cus-value)))
	253	(car cus-value)
	254	cus-value))))
da0b1f56 GM	255
	256	"Alist of face attributes.
	257
51a1edab MB	258	The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
	259	where KEY is the name of the attribute, TYPE is a widget type for
	260	editing the attribute, PRE-FILTER is a function to make the attribute's
	261	value suitable for the customization widget, and POST-FILTER is a
	262	function to make the customized value suitable for storing. PRE-FILTER
	263	and POST-FILTER are optional.
d543e20b	264
51a1edab MB	265	The PRE-FILTER should take a single argument, the attribute value as
	266	stored, and should return a value for customization (using the
	267	customization type TYPE).
d543e20b	268
51a1edab MB	269	The POST-FILTER should also take a single argument, the value after
	270	being customized, and should return a value suitable for setting the
	271	given face attribute.")
d543e20b	272
da0b1f56	273
d543e20b	274	(defun custom-face-attributes-get (face frame)
6c283d44 RS	275	"For FACE on FRAME, return an alternating list describing its attributes.
6c283d44 RS	276	The list has the form (KEYWORD VALUE KEYWORD VALUE...).
d543e20b PA	277	Each keyword should be listed in `custom-face-attributes'.
d543e20b PA	278
6c283d44	279	If FRAME is nil, use the global defaults for FACE."
da0b1f56 GM	280	(let ((attrs custom-face-attributes)
	281	plist)
	282	(while attrs
	283	(let* ((attribute (car (car attrs)))
	284	(value (face-attribute face attribute frame)))
	285	(setq attrs (cdr attrs))
6bca3005 MB	286	(unless (or (eq value 'unspecified)
6bca3005 MB	287	(and (null value) (memq attribute '(:inherit))))
da0b1f56 GM	288	(setq plist (cons attribute (cons value plist))))))
da0b1f56 GM	289	plist))
d543e20b	290
d543e20b PA	291	;;; Initializing.
d543e20b PA	292
d543e20b PA	293	;;;###autoload
	294	(defun custom-set-faces (&rest args)
	295	"Initialize faces according to user preferences.
	296	The arguments should be a list where each entry has the form:
	297
1743c17a	298	(FACE SPEC [NOW [COMMENT]])
d543e20b	299
6c283d44 RS	300	SPEC is stored as the saved value for FACE.
6c283d44 RS	301	If NOW is present and non-nil, FACE is created now, according to SPEC.
1743c17a	302	COMMENT is a string comment about FACE.
d543e20b PA	303
	304	See `defface' for the format of SPEC."
	305	(while args
	306	(let ((entry (car args)))
	307	(if (listp entry)
	308	(let ((face (nth 0 entry))
	309	(spec (nth 1 entry))
1743c17a DL	310	(now (nth 2 entry))
1743c17a DL	311	(comment (nth 3 entry)))
d543e20b	312	(put face 'saved-face spec)
1743c17a	313	(put face 'saved-face-comment comment)
d543e20b PA	314	(when now
d543e20b PA	315	(put face 'force-face t))
6c283d44	316	(when (or now (facep face))
1743c17a	317	(put face 'face-comment comment)
6c283d44 RS	318	(make-empty-face face)
6c283d44 RS	319	(face-spec-set face spec))
d543e20b PA	320	(setq args (cdr args)))
	321	;; Old format, a plist of FACE SPEC pairs.
	322	(let ((face (nth 0 args))
	323	(spec (nth 1 args)))
	324	(put face 'saved-face spec))
	325	(setq args (cdr (cdr args)))))))
	326
	327	;;; The End.
	328
	329	(provide 'cus-face)
	330
1743c17a	331	;;; cus-face.el ends here