Use save-current-buffer instead of save-excursion

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