From b34b615bccd66ffc6a8353b0da7f8ce580ebebde Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Tue, 6 Sep 2022 11:20:11 +1200 Subject: [PATCH] Rename function --- lisp/org-roam-rewrite.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-roam-rewrite.el b/lisp/org-roam-rewrite.el index 2de73a2..6367fd6 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -129,7 +129,7 @@ It is called with the new node as the current buffer." (replace-match new-title t t nil 4))) (save-buffer)) -(defun org-roam-rewrite--delete-node-and-buffer (node) +(defun org-roam-rewrite--delete-node-kill-buffer (node) (when-let* ((buf (find-buffer-visiting (org-roam-node-file node)))) (kill-buffer buf)) (delete-file (org-roam-node-file node))) @@ -182,7 +182,7 @@ LINK-DESC is the description to use for the updated links." (cond ((null backlinks) (when (y-or-n-p "No links found. Delete node? ") - (org-roam-rewrite--delete-node-and-buffer from))) + (org-roam-rewrite--delete-node-kill-buffer from))) ((y-or-n-p (format "Rewriting %s link%s from \"%s\" -> \"%s\". Continue? " (length backlinks) (if (= 1 (length backlinks)) "" "s") @@ -190,7 +190,7 @@ LINK-DESC is the description to use for the updated links." link-desc)) (org-roam-rewrite--edit-backlinks backlinks (org-roam-node-id to) link-desc) (when (y-or-n-p "Rewrite completed. Delete node? ") - (org-roam-rewrite--delete-node-and-buffer from))) + (org-roam-rewrite--delete-node-kill-buffer from))) (t (user-error "Rewrite aborted")))))