Use make-separator-line in shortdoc

* lisp/simple.el (separator-line): Tweak definition to not be so
overwhelming.

* lisp/emacs-lisp/shortdoc.el (shortdoc-separator): Removed.
(shortdoc-display-group): Use make-separator-line.

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 4beba1dbed10b9c257ea3b1c531e531495ed425b..22439f4c36cb5c5bae75e3a2bd2628e4f761256e 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -32,14 +32,6 @@
   "Short documentation."
   :group 'lisp)
 
-(defface shortdoc-separator
-  '((((class color) (background dark))
-     :height 0.1 :background "#505050" :extend t)
-    (((class color) (background light))
-     :height 0.1 :background "#a0a0a0" :extend t)
-    (t :height 0.1 :inverse-video t :extend t))
-  "Face used to separate sections.")
-
 (defface shortdoc-heading
   '((t :inherit variable-pitch :height 1.3 :weight bold))
   "Face used for a heading."
@@ -1174,7 +1166,7 @@ If FUNCTION is non-nil, place point on the entry for FUNCTION (if any)."
         ;; There may be functions not yet defined in the data.
         ((fboundp (car data))
          (when prev
-           (insert (propertize "\n" 'face 'shortdoc-separator)))
+           (insert (make-separator-line)))
          (setq prev t)
          (shortdoc--display-function data))))
      (cdr (assq group shortdoc--groups))))

diff --git a/lisp/simple.el b/lisp/simple.el
index ea3ccb388e59610d3c62debe43c92a27b004983b..5741c24eb7bc5e7e67a79735a30420936c52dd89 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -696,7 +696,10 @@ When called from Lisp code, ARG may be a prefix string to copy."
     (goto-char pos)))
 
 (defface separator-line
-  '((((type graphic)) :height 0.1 :inverse-video t)
+  '((((type graphic) (background dark))
+     :height 0.1 :background "#505050")
+    (((type graphic) (background light))
+     :height 0.1 :background "#a0a0a0")
     (t :foreground "ForestGreen"))
   "Face for separator lines."
   :version "28.1"