diff options
-rw-r--r-- | bog.el | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -425,7 +425,9 @@ is only active if `bog-use-citekey-cache' is non-nil)." (dup-cks (sort (bog--find-duplicates (bog-all-heading-citekeys)) #'string-lessp))) (if (not dup-cks) - (message "No duplicate citekeys found") + (progn (message "No duplicate citekeys found") + (and (get-buffer bufname) + (kill-buffer bufname))) (with-current-buffer (get-buffer-create bufname) (erase-buffer) (insert (mapconcat #'identity dup-cks "\n")) |