From xemacs-m  Wed Mar  5 08:48:26 1997
Received: from newman (root@newman.aventail.com [38.225.141.10])
	by xemacs.org (8.8.5/8.8.5) with SMTP id IAA27045
	for <xemacs-beta@xemacs.org>; Wed, 5 Mar 1997 08:48:23 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (wmperry@kramer [192.168.1.12]) by newman (8.6.12/8.6.9) with SMTP id GAA09510; Wed, 5 Mar 1997 06:46:21 -0800
Date: Wed, 5 Mar 1997 06:46:21 -0800
Message-Id: <199703051446.GAA09510@newman>
From: "William M. Perry" <wmperry@aventail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Per Abrahamsen <abraham@dina.kvl.dk>
Cc: xemacs-beta@xemacs.org
Subject: Re: custom face-documentation (was: Re: [20.1-b5] (void-function get-face-documentation) lossage)
In-Reply-To: <rjsp2a1oo5.fsf_-_@zuse.dina.kvl.dk>
References: <vklo83i859.fsf@cdc.noaa.gov>
	<m2ybc3ntje.fsf@altair.xemacs.org>
	<199703042304.SAA14742@black-ice.cc.vt.edu>
	<m23eubnq9w.fsf@altair.xemacs.org>
	<rjsp2a1oo5.fsf_-_@zuse.dina.kvl.dk>
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;

Per Abrahamsen writes:
>
>Apropos, I think these two functions should be moved to faces.el.
>
>(defun face-documentation (face)
>  "Get the documentation string for FACE."
>  (face-property face 'doc-string))

face-doc-string: (face)
  -- a compiled Lisp function.
Return the documentation string for FACE.

>(defun set-face-documentation (face string)
>  "Set the documentation string for FACE to STRING."
>  (set-face-property face 'doc-string string))

set-face-doc-string: (face doc-string)
  -- an interactive compiled Lisp function.
Change the documentation string of FACE to DOC-STRING.

-Bill P.

