Commit 620e35f0 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

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).
parent 13b247c3
Pipeline #11474 failed with stages
in 1 minute and 34 seconds
......@@ -2222,6 +2222,13 @@ This command, called interactively, toggles the local value of
** Miscellaneous
*** New utility function 'make-separator-line'.
*** New face 'separator-line'.
This is used by 'make-separator-line'.
*** New user option 'ignored-local-variable-values'.
This is the opposite of 'safe-local-variable-values' -- it's an alist
......@@ -1573,11 +1573,7 @@ current buffer and the selected frame, respectively."
(insert doc)
(delete-region (point)
(progn (skip-chars-backward " \t\n") (point)))
(insert "\n\n"
(propertize "\n" 'face
'(:height 0.1 :inverse-video t :extend t)))
(insert "\n\n" (make-separator-line) "\n")
(when name
(insert (symbol-name symbol)
" is also a " name "." "\n\n"))))
......@@ -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))
(insert "\n\n" (make-separator-line) "\n")))
(princ brief-desc)
(when locus
......@@ -695,6 +695,27 @@ When called from Lisp code, ARG may be a prefix string to copy."
(indent-to col 0)
(goto-char pos)))
(defface separator-line
'((((type graphic)) :height 0.1 :inverse-video t)
(t :foreground "ForestGreen"))
"Face for separator lines."
:version "28.1"
:group 'text)
(defun make-separator-line (&optional length)
"Make a string appropriate for usage as a visual separator line.
This uses the `separator-line' face.
If LENGTH is nil, use the window width."
(if (display-graphic-p)
(if length
(concat (propertize (make-string length ?\s) 'face 'separator-line)
(propertize "\n" 'face '(:inherit separator-line :extend t)))
(concat (propertize (make-string (or length (1- (window-width))) ?-)
'face 'separator-line)
(defun delete-indentation (&optional arg beg end)
"Join this line to previous and fix up whitespace at join.
If there is a fill prefix, delete it from the beginning of this
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment