From 6ec968e2cadca7e4df4aba8960e758aa6c7d00b0 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 7 Sep 2023 23:15:32 +1000 Subject: [emacs] Some small enhancement Remove empty blocks automatically. When org-insert-structure-template, with a prefix, auto yank into block and exit --- emacs/.emacs.d/lisp/my/my-gnus.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'emacs/.emacs.d/lisp/my/my-gnus.el') diff --git a/emacs/.emacs.d/lisp/my/my-gnus.el b/emacs/.emacs.d/lisp/my/my-gnus.el index 1f7ff18..9c42204 100644 --- a/emacs/.emacs.d/lisp/my/my-gnus.el +++ b/emacs/.emacs.d/lisp/my/my-gnus.el @@ -339,7 +339,8 @@ The archiving target comes from `my-gnus-group-alist'." url) pairs)) (while (and (shr-next-link) - (<= (point) end)) + (<= (point) end) + (button-at (point))) (let ((button (button-at (point)))) (push (cons (buffer-substring-no-properties (button-start button) -- cgit v1.2.3