From 04be6aa653ef51ff90e070422b43495b9c0812f3 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 28 Feb 2024 21:47:49 +0100 Subject: [PATCH] Use save-current-buffer instead of save-excursion --- bundle/bundle--org.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/bundle/bundle--org.el b/bundle/bundle--org.el index 4c9e4215..02640ed2 100644 --- a/bundle/bundle--org.el +++ b/bundle/bundle--org.el @@ -539,12 +539,11 @@ (defun mk/extract-headlines-by-tag (tag) "Extract headlines from current buffer by TAG." (interactive "sEnter tag: ") - (save-excursion + (save-current-buffer (let ((result-buffer (generate-new-buffer (concat "*Extracted Headlines " tag "*")))) (with-current-buffer result-buffer (org-mode) (insert "* Extracted Headlines by Tag: " tag " *\n\n")) - (goto-char (point-min)) (while (re-search-forward (concat "^\\*+\\s-+\\(.*?\\)\\s-+:\\(" tag "\\):") nil t) (let ((headline (match-string 0))) (with-current-buffer result-buffer