awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-20 16:10:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

💄 comment

Browse Source
This commit is contained in:
Chris Barrett
2022-09-14 11:38:05 +12:00
parent fedd7b8f29
commit 82349b640b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-roam-rewrite.el
View File

@@ -115,8 +115,11 @@ It is called with the new node as the current buffer."
(dolist (backlink (seq-sort-by #'org-roam-backlink-point #'> backlinks)) (dolist (backlink (seq-sort-by #'org-roam-backlink-point #'> backlinks))
(goto-char (org-roam-backlink-point backlink)) (goto-char (org-roam-backlink-point backlink))
(save-match-data (save-match-data
;; This *shouldn't* happen, but I've seen it a few times and I'm not
;; sure why.
(when (org-at-property-drawer-p) (when (org-at-property-drawer-p)
(error "Unexpected attempt to edit property drawer")) (error "Unexpected attempt to edit property drawer"))
(when (looking-at org-link-any-re) (when (looking-at org-link-any-re)
(replace-match replacement t t)))) (replace-match replacement t t))))
(write-region (point-min) (point-max) file)))) (write-region (point-min) (point-max) file))))