awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(internal): org-roam-version save-excursion (#656)

Browse Source 
Restore user's point in org-roam.el
This commit is contained in:
N V
2020-05-17 01:46:41 -04:00
committed by GitHub
parent 055669817a
commit 74f12ee8aa
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
org-roam.el
View File

@ -1025,11 +1025,12 @@ Otherwise, behave as if called interactively."
Interactively, or when MESSAGE is non-nil, show in the echo area."
(interactive)
(let ((version (with-current-buffer (find-file-noselect (locate-library "org-roam.el"))
(save-match-data
(goto-char (point-min))
(if (re-search-forward "\\(?:;; Version: \\([^z-a]*?$\\)\\)" nil nil)
(substring-no-properties (match-string 1))
"N/A")))))
(save-excursion
(save-match-data
(goto-char (point-min))
(if (re-search-forward "\\(?:;; Version: \\([^z-a]*?$\\)\\)" nil nil)
(substring-no-properties (match-string 1))
"N/A"))))))
(if (or message (called-interactively-p 'interactive))
(message "%s" version)
version)))