diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-19 15:48:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-19 15:48:20 +0200 |
| commit | 620e35f09fd5c2cc08792bb88de57047e29620ad (patch) | |
| tree | d0e22f02543d4e9f7a1c0e216c2d88c96dc6a2e2 /lisp/help.el | |
| parent | 13b247c3c48a3e8b64ece8d4014c484473c8e362 (diff) | |
| download | emacs-620e35f09fd5c2cc08792bb88de57047e29620ad.tar.gz emacs-620e35f09fd5c2cc08792bb88de57047e29620ad.tar.bz2 emacs-620e35f09fd5c2cc08792bb88de57047e29620ad.zip | |
Add a new function for separator lines
* lisp/help-fns.el (describe-symbol): Use it.
* lisp/help.el (describe-key): Use it.
* lisp/simple.el (separator-line): New face.
(make-separator-line): New function (bug#49630).
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/help.el b/lisp/help.el index 1bb1b307723..ba27fc5810f 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -943,12 +943,7 @@ current buffer." (when defn (when (> (length info-list) 1) (with-current-buffer standard-output - (insert "\n\n" - ;; FIXME: Can't use eval-when-compile because purified - ;; strings lose their text properties :-( - (propertize "\n" 'face - '(:height 0.1 :inverse-video t :extend t)) - "\n"))) + (insert "\n\n" (make-separator-line) "\n"))) (princ brief-desc) (when locus |