branch: externals/org-remark commit 4b5d9c3fda624c73aef7bd557be17b989d06db59 Author: Noboru Ota <m...@nobiot.com> Commit: Noboru Ota <m...@nobiot.com>
fix:delete quit window if it did not exist on calling delete --- org-remark.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/org-remark.el b/org-remark.el index 313eb85cc9..6ab1d09289 100644 --- a/org-remark.el +++ b/org-remark.el @@ -807,7 +807,7 @@ notes of the entry. Return t if an entry is removed or deleted." (let* ((ibuf (org-remark-notes-buffer-get-or-create)) - (ibuf-window (get-buffer-window ibuf))) + (window? (get-buffer-window ibuf))) (with-current-buffer ibuf (org-with-wide-buffer (when-let ((id-headline (org-find-property org-remark-prop-id id))) @@ -832,10 +832,11 @@ Do you really want to delete the notes?")) ;; If there is no content, it's OK t)) (delete-region (point-min)(point-max)) - (message "Deleted the marginal notes entry"))))) + (message "Deleted the marginal notes entry") ;; Quit the marginal notes indirect buffer if it was not there ;; before the delete -- go back to the original state. - ;;(unless ibuf-window (quit-window nil (get-buffer-window ibuf))))))) + (when-let (ibuf-window (get-buffer-window ibuf)) + (unless window? (quit-window nil ibuf-window ))))))) (when (buffer-modified-p) (save-buffer))) t))