jessieh/eldoc-frame
jessieh/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Allow customizing doc separator

Browse Source 
* eldoc-box.el (eldoc-box-doc-separator): New custom option.
(eldoc-box--eldoc-display-function): Use 'eldoc-box-doc-separator'.
This commit is contained in:
Yuan Fu 2023-03-08 02:02:22 -08:00
parent 39c0379dd0
commit d68cccb543
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
eldoc-box.el
View File

@ -100,6 +100,17 @@ in that mode the childframe is cleared as soon as point moves."
"If set to non-nil, eldoc-box clears childframe on \\[keyboard-quit]." "If set to non-nil, eldoc-box clears childframe on \\[keyboard-quit]."
:type 'boolean) :type 'boolean)
(defcustom eldoc-box-doc-separator "\n\n"
"The separator between documentation from different sources.
Since Emacs 28, Eldoc can combine documentation from different
sources, this separator is used to separate documentation from
different sources.
This separator is used for the documentation shown in
‘eldoc-box-bover-mode’ but not ‘eldoc-box-help-at-point’."
:type 'string)
(defvar eldoc-box-frame-parameters (defvar eldoc-box-frame-parameters
'(;; make the childframe unseen when first created '(;; make the childframe unseen when first created
(left . -1) (left . -1)
@ -548,7 +559,7 @@ display the docs in echo area depending on
‘eldoc-box-only-multi-line’." ‘eldoc-box-only-multi-line’."
(let ((doc (string-trim (string-join (let ((doc (string-trim (string-join
(mapcar #'eldoc-box--compose-doc docs) (mapcar #'eldoc-box--compose-doc docs)
"\n\n")))) eldoc-box-doc-separator))))
(when (eldoc-box--eldoc-message-function "%s" doc) (when (eldoc-box--eldoc-message-function "%s" doc)
(eldoc-display-in-echo-area docs interactive)))) (eldoc-display-in-echo-area docs interactive))))