Mercurial > emacs
changeset 39830:aed9c3afb7ed
(describe-face): Call help-setup-xref earlier.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 12 Oct 2001 16:38:32 +0000 |
| parents | 79ed34b0c0df |
| children | ef785a6f6245 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;