# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869724180 0
# Node ID ab4cd3135797376e16cea82b779a689b82ec7709
# Parent  d1137584b5d6befba662696b31d866edac508a02
(custom-declare-face): Use [set-]face-documentation.

diff -r d1137584b5d6 -r ab4cd3135797 lisp/cus-face.el
--- a/lisp/cus-face.el	Thu Jul 24 05:35:30 1997 +0000
+++ b/lisp/cus-face.el	Thu Jul 24 06:03:00 1997 +0000
@@ -54,8 +54,8 @@
 	    (setq frame (car frames)
 		  frames (cdr frames))
 	    (face-spec-set face value frame)))))
-    (when (and doc (null (face-doc-string face)))
-      (set-face-doc-string face doc))
+    (when (and doc (null (face-documentation face)))
+      (set-face-documentation face doc))
     (custom-handle-all-keywords face args 'custom-face)
     (run-hooks 'custom-define-hook))
   face)