mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(describe-face): Call help-setup-xref earlier.

Browse Source
This commit is contained in:
Stefan Monnier 2001-10-12 16:38:32 +00:00
parent aab8a6e351
commit 2cb95d1b7b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/faces.el
View File

@ -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))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;