[PATCH] ob-core: Fix `org-babel-result-names'

[PATCH] ob-core: Fix `org-babel-result-names'

[hrdl]

* lisp/ob-core.el (org-babel-result-names): Do not change
  visibility of windows when called.

TINYCHANGE
---
 lisp/ob-core.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index a7c4f2cab..54dcf400e 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2015,12 +2015,12 @@ buffer or nil if no such result exists."
 
 (defun org-babel-result-names (&optional file)
   "Return the names of results in FILE or the current buffer."
-  (save-excursion
-    (when file (find-file file)) (goto-char (point-min))
-    (let ((case-fold-search t) names)
+  (with-current-buffer (if file (find-file-noselect file) (current-buffer))
+    (org-with-point-at 1
+      (let ((case-fold-search t) names)
       (while (re-search-forward org-babel-result-w-name-regexp nil t)
 	(setq names (cons (match-string-no-properties 9) names)))
-      names)))
+      names))))
 
 ;;;###autoload
 (defun org-babel-next-src-block (&optional arg)
-- 
2.42.0

Re: [PATCH] ob-core: Fix `org-babel-result-names'

[Ihor Radchenko]

hrdl <git@hrdl.eu> writes:

> * lisp/ob-core.el (org-babel-result-names): Do not change
>   visibility of windows when called.

Thanks!
Applied, onto bugfix, amending the commit summary to

    org-babel-result-names: Do not alter window configuration

I also added you to the contributor list.
https://git.sr.ht/~bzg/worg/commit/112d4eaa

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>