From eae97487dcbea2b09249455a390fa501154aec79 Mon Sep 17 00:00:00 2001 From: N V <44036031+progfolio@users.noreply.github.com> Date: Sun, 17 May 2020 02:56:15 -0400 Subject: [PATCH] (internal): fix free variable reference (#658) Define org-roam-backlinks-mode before it is referenced. --- org-roam.el | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/org-roam.el b/org-roam.el index d0262cf..6e8fc9d 100644 --- a/org-roam.el +++ b/org-roam.el @@ -813,6 +813,21 @@ included as a candidate." This face is used for links without a destination." :group 'org-roam-faces) +;;;; org-roam-backlinks-mode +(define-minor-mode org-roam-backlinks-mode + "Minor mode for the `org-roam-buffer'. +\\{org-roam-backlinks-mode-map}" + :lighter " Backlinks" + :keymap (let ((map (make-sparse-keymap))) + (define-key map [mouse-1] 'org-open-at-point) + (define-key map (kbd "RET") 'org-open-at-point) + map) + (if org-roam-backlinks-mode + (add-hook 'org-open-at-point-functions + 'org-roam-open-at-point nil 'local) + (remove-hook 'org-open-at-point-functions + 'org-roam-open-at-point 'local))) + (defun org-roam--in-buffer-p () "Return t if in the Org-roam buffer." (and (boundp org-roam-backlinks-mode) @@ -848,21 +863,6 @@ file." (t 'org-link))) -;;;; org-roam-backlinks-mode -(define-minor-mode org-roam-backlinks-mode - "Minor mode for the `org-roam-buffer'. -\\{org-roam-backlinks-mode-map}" - :lighter " Backlinks" - :keymap (let ((map (make-sparse-keymap))) - (define-key map [mouse-1] 'org-open-at-point) - (define-key map (kbd "RET") 'org-open-at-point) - map) - (if org-roam-backlinks-mode - (add-hook 'org-open-at-point-functions - 'org-roam-open-at-point nil 'local) - (remove-hook 'org-open-at-point-functions - 'org-roam-open-at-point 'local))) - (defun org-roam-open-at-point () "Open an Org-roam link or visit the text previewed at point. When point is on an Org-roam link, open the link in the Org-roam window.