# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1002904712 0
# Node ID aed9c3afb7ed469ca22e5e564630faf1dce9def6
# Parent  79ed34b0c0df5591350dd5415a69387fbfd27e30
(describe-face): Call help-setup-xref earlier.

diff -r 79ed34b0c0df -r aed9c3afb7ed lisp/faces.el
--- a/lisp/faces.el	Fri Oct 12 16:28:16 2001 +0000
+++ b/lisp/faces.el	Fri Oct 12 16:38:32 2001 +0000
@@ -302,7 +302,7 @@
   "*List of X resources and classes for face attributes.
 Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is
 the name of a face attribute, and each ENTRY is a cons of the form
-(RESOURCE . CLASS) with RESOURCE being the resource and CLASS being the
+\(RESOURCE . CLASS) with RESOURCE being the resource and CLASS being the
 X resource class for the attribute."
   :type '(repeat (cons symbol (repeat (cons string string))))
   :group 'faces)
@@ -1109,7 +1109,7 @@
 		  (:inherit . "Inherit")))
 	(max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x)))
 					attrs))))
-    (require 'help-mode)
+    (help-setup-xref (list #'describe-face face) (interactive-p))
     (with-output-to-temp-buffer (help-buffer)
       (save-excursion
 	(set-buffer standard-output)
@@ -1129,8 +1129,7 @@
 	      (re-search-backward
 	       (concat "\\(" customize-label "\\)") nil t)
 	      (help-xref-button 1 'help-customize-face face)))))
-      (print-help-return-message)
-      (help-setup-xref (list #'describe-face face) (interactive-p)))))
+      (print-help-return-message))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;