diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 16:38:32 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 16:38:32 +0000 |
| commit | 2cb95d1b7b290372418a3e8c9027de4be2e5d50e (patch) | |
| tree | 183fe90b81a7b8f528642c0ad723cbab128869ce | |
| parent | aab8a6e351caa212567df338ed6ee5c5c51fd416 (diff) | |
| download | emacs-2cb95d1b7b290372418a3e8c9027de4be2e5d50e.tar.gz | |
(describe-face): Call help-setup-xref earlier.
| -rw-r--r-- | lisp/faces.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 172efc5cd12..2a116d5ad9b 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -302,7 +302,7 @@ If FRAME is omitted or nil, use the selected frame." "*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 @@ If FRAME is omitted or nil, use the selected frame." (: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 @@ If FRAME is omitted or nil, use the selected frame." (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)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |