Make "C-h o" show faces as well as variables
* lisp/faces.el (describe-face): Return (buffer-string). Reorder the placement of variables/faces in describe-symbol, to put more emphasis on the variable entry rather than the face. (Bug#24543)
This commit is contained in:
parent
2441d0118b
commit
8a577e9468
2 changed files with 3 additions and 3 deletions
|
|
@ -1454,7 +1454,7 @@ If FRAME is omitted or nil, use the selected frame."
|
|||
(setq face (list face)))
|
||||
(with-help-window (help-buffer)
|
||||
(with-current-buffer standard-output
|
||||
(dolist (f face)
|
||||
(dolist (f face (buffer-string))
|
||||
(if (stringp f) (setq f (intern f)))
|
||||
;; We may get called for anonymous faces (i.e., faces
|
||||
;; expressed using prop-value plists). Those can't be
|
||||
|
|
|
|||
|
|
@ -393,12 +393,12 @@ it does not already exist."
|
|||
|
||||
(defvar describe-symbol-backends
|
||||
`((nil ,#'fboundp ,(lambda (s _b _f) (describe-function s)))
|
||||
("face" ,#'facep ,(lambda (s _b _f) (describe-face s)))
|
||||
(nil
|
||||
,(lambda (symbol)
|
||||
(or (and (boundp symbol) (not (keywordp symbol)))
|
||||
(get symbol 'variable-documentation)))
|
||||
,#'describe-variable)))
|
||||
,#'describe-variable)
|
||||
("face" ,#'facep ,(lambda (s _b _f) (describe-face s)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun help-make-xrefs (&optional buffer)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue