From ad20b23dae32550188197dfa7babf7905fcd5dd9 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sun, 6 Feb 2022 21:50:32 +0300 Subject: [PATCH] fix: should fix widget button suffix --- org-journal-tags.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/org-journal-tags.el b/org-journal-tags.el index adf828c..e15768d 100644 --- a/org-journal-tags.el +++ b/org-journal-tags.el @@ -1441,13 +1441,7 @@ tag." (dates-list (org-journal-tags--get-dates-list (org-journal-tags--query-sort-refs (org-journal-tags--get-all-tag-references "")))) - (max-tag-name (seq-max (mapcar #'length tag-names))) - (widget-push-button-prefix "") - (widget-push-button-suffix "")) - ;; XXX Silencing the byte-compliation warnings. These two - ;; wariables change the behavior of `widget-create'. - (ignore widget-push-button-prefix) - (ignore widget-push-button-suffix) + (max-tag-name (seq-max (mapcar #'length tag-names)))) (dolist (tag-name tag-names) (widget-create 'push-button :notify (lambda (widget &rest _) @@ -1472,6 +1466,8 @@ tag." "Render the contents of the org-journal-tags status buffer." (let ((inhibit-read-only t)) (erase-buffer) + (setq-local widget-push-button-prefix "") + (setq-local widget-push-button-suffix "") (org-journal-tags-status-mode) (magit-insert-section (org-journal-tags-info) (magit-insert-section (org-journal-tags)