tec
/
org-glossary
1
0
Fork 0
Code Issues 1 Pull Requests Releases Activity

Don't squash newlines in eldoc text

This commit is contained in:
TEC 2022-08-07 17:47:39 +08:00
parent 2e41f61b45
commit 8910fa28b7
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
org-glossary.el
View File

@ -1794,9 +1794,9 @@ This should only be run as an export hook."
(replace-regexp-in-string
"^[Gg]ls\\(?:pl\\)?:" ""
(buffer-substring-no-properties
(and term-entry (org-glossary--term-help-echo term-entry))))
(or (previous-single-property-change (1+ pos) 'face) (point-min))
(or (next-single-property-change pos 'face) (point-max))))))))
(and term-entry (org-glossary--term-help-echo term-entry no-squash))))
;;; Completion
@ -2195,7 +2195,7 @@ This is intended as a :before-until advice for
(and org-glossary-mode
(eq (get-text-property (point) 'help-echo)
#'org-glossary--help-echo-from-textprop)
(org-glossary--help-echo-from-textprop nil (current-buffer) (point))))
(org-glossary--help-echo-from-textprop nil (current-buffer) (point) t)))
(advice-add 'org-eldoc-documentation-function
:before-until 'org-glossary--eldoc-function)