awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-31 14:43:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

Hoist run-hook

Browse Source
This commit is contained in:
Chris Barrett
2023-03-12 15:01:15 +13:00
parent 9429aa6c76
commit cccb4af688
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-roam-review.el
View File

@@ -640,8 +640,7 @@ them as reviewed with `org-roam-review-accept',
(setq found (not (equal 'font-lock-comment-face (get-text-property (point) 'face)))) (setq found (not (equal 'font-lock-comment-face (get-text-property (point) 'face))))
(let ((unchanged (equal (magit-current-section) section))) (let ((unchanged (equal (magit-current-section) section)))
(setq stop (or found unchanged)))) (setq stop (or found unchanged))))
(when found found)))
(run-hooks 'org-roam-review-next-node-selected-hook)))))
(defun org-roam-review--update-review-buffer-entry (node) (defun org-roam-review--update-review-buffer-entry (node)
(org-roam-review--with-current-review-buffer (org-roam-review--with-current-review-buffer
@@ -684,7 +683,8 @@ Return the affected sections."
result)) result))
,@body) ,@body)
(org-roam-review--with-current-review-buffer (org-roam-review--with-current-review-buffer
(org-roam-review--forward-to-uncommented-sibling)))) (when (org-roam-review--forward-to-uncommented-sibling)
(run-hooks 'org-roam-review-next-node-selected-hook)))))
(defun org-roam-review--maybe-kill-reviewed-buffer (buf) (defun org-roam-review--maybe-kill-reviewed-buffer (buf)
(when (and org-roam-review-kill-reviewed-buffers-p (buffer-live-p buf)) (when (and org-roam-review-kill-reviewed-buffers-p (buffer-live-p buf))