diff options
author | João Távora <joaotavora@gmail.com> | 2023-03-24 17:37:01 +0000 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 2023-03-24 17:37:42 +0000 |
commit | e79b4ccd7948108a29a8a3d84489e47c376c95db (patch) | |
tree | f1cc70958e4175150aebaebb2b835301b28d5d54 | |
parent | a384401eab59fbc3e551211c4ebf342c73957409 (diff) | |
download | emacs-e79b4ccd7948108a29a8a3d84489e47c376c95db.tar.gz |
Allow users to customize eldoc buffer separator (bug#62029)
* lisp/emacs-lisp/eldoc.el (eldoc-doc-buffer-separator): New
variable.
(eldoc--format-doc-buffer): Use it.
-rw-r--r-- | lisp/emacs-lisp/eldoc.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index ccc466cfd44..43e768054a7 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el @@ -499,6 +499,10 @@ If INTERACTIVE, display it. Else, return said buffer." (display-buffer (current-buffer))) (t (current-buffer))))) +(defvar eldoc-doc-buffer-separator + "String used to separate items in Eldoc documentation buffer." + (concat "\n" (propertize "\n" 'face '(:inherit separator-line :extend t)) "\n")) + (defun eldoc--format-doc-buffer (docs) "Ensure DOCS are displayed in an *eldoc* buffer." (with-current-buffer (if (buffer-live-p eldoc--doc-buffer) @@ -522,7 +526,8 @@ If INTERACTIVE, display it. Else, return said buffer." ": " this-doc)) do (insert this-doc) - when rest do (insert "\n") + when rest do + (insert eldoc-doc-buffer-separator) finally (goto-char (point-min))) ;; Rename the buffer, taking into account whether it was ;; hidden or not |