diff --git a/org-roam.el b/org-roam.el index 27701da..268b381 100644 --- a/org-roam.el +++ b/org-roam.el @@ -183,22 +183,22 @@ Valid states are 'visible, 'exists and 'none." (when org-roam-hash-backlinks (let ((backlinks (gethash file org-roam-hash-backlinks))) (with-current-buffer org-roam-buffer - (read-only-mode -1) - (erase-buffer) - (org-mode) - (make-local-variable 'org-return-follows-link) - (setq org-return-follows-link t) - (insert (format "Backlinks for %s:\n\n" file)) - (if backlinks - (maphash (lambda (link contents) - (insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link)) - (dolist (content contents) - (insert "#+BEGIN_SRC org\n") - (insert content) - (insert "\n#+END_SRC\n\n"))) - backlinks) - (insert "No backlinks.")) - (org-global-cycle 1)) + (let ((inhibit-read-only t)) + (erase-buffer) + (org-mode) + (make-local-variable 'org-return-follows-link) + (setq org-return-follows-link t) + (insert (format "Backlinks for %s:\n\n" file)) + (if backlinks + (maphash (lambda (link contents) + (insert (format "* [[file:%s][%s]]\n" (expand-file-name link org-roam-directory) link)) + (dolist (content contents) + (insert "#+BEGIN_SRC org\n") + (insert content) + (insert "\n#+END_SRC\n\n"))) + backlinks) + (insert "No backlinks."))) + (read-only-mode 1)) (setq org-roam-current-file file)))) (defun org-roam ()