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

Refactor buffer switching in og-goto-term-def

This commit is contained in:
TEC 2022-07-24 03:12:19 +08:00
parent 80433a9b27
commit 059f8c5467
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
org-glossary.el
View File

@ -1864,10 +1864,11 @@ point will be used."
(string-trim (org-element-interpret-data
(plist-get term-entry :value))))))
(setq term-entry aliased-term))
(let ((def-file (plist-get term-entry :definition-file)))
(if (bufferp def-file)
(switch-to-buffer def-file)
(find-file def-file)))
(let ((defsource (plist-get term-entry :definition-file)))
(switch-to-buffer
(or (and (bufferp defsource) defsource)
(get-file-buffer defsource)
(find-file defsource))))
(goto-char (plist-get term-entry :definition-pos))
term-entry))