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

Make og-goto-term-definition work with gls: links

This commit is contained in:
TEC 2022-07-13 23:00:42 +08:00
parent 8e9885f43a
commit 5c40c17a68
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
org-glossary.el
View File

@ -1824,13 +1824,15 @@ point will be used."
(if (consp term-ref) term-ref
(or (org-glossary--quicklookup
(or (and (stringp term-ref) term-ref)
(buffer-substring-no-properties
(or (previous-single-property-change
(1+ (or (and (numberp term-ref) term-ref) (point))) 'face)
(point-min))
(or (next-single-property-change
(or (and (numberp term-ref) term-ref) (point)) 'face)
(point-max)))))
(replace-regexp-in-string
"^[Gg]ls\\(?:pl\\)?:" ""
(buffer-substring-no-properties
(or (previous-single-property-change
(1+ (or (and (numberp term-ref) term-ref) (point))) 'face)
(point-min))
(or (next-single-property-change
(or (and (numberp term-ref) term-ref) (point)) 'face)
(point-max))))))
(org-glossary--select-term org-glossary--terms)))))
(if-let ((aliased-term
(org-glossary--quicklookup