awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-16 15:56:48 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): prevent org-roam-version from loading org-roam-dev (#659)

Browse Source 
Instead of visiting file, insert library into temp buffer.
Prevents loading .dir-local dev environment, accompanying unsafe-variable prompt.
Prevents interference with org-roam.el if already open.
This commit is contained in:
N V
2020-05-17 03:41:40 -04:00
committed by GitHub
parent eae97487dc
commit e0aee184a7
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
org-roam.el
View File

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