forked from mirrors/org-mode
org-babel-result-names: Do not alter window configuration
* lisp/ob-core.el (org-babel-result-names): Do not change visibility of windows when called. TINYCHANGE
This commit is contained in:
parent
1ee85e957e
commit
f5e41b4724
|
@ -1932,12 +1932,12 @@ buffer or nil if no such result exists."
|
||||||
|
|
||||||
(defun org-babel-result-names (&optional file)
|
(defun org-babel-result-names (&optional file)
|
||||||
"Return the names of results in FILE or the current buffer."
|
"Return the names of results in FILE or the current buffer."
|
||||||
(save-excursion
|
(with-current-buffer (if file (find-file-noselect file) (current-buffer))
|
||||||
(when file (find-file file)) (goto-char (point-min))
|
(org-with-point-at 1
|
||||||
(let ((case-fold-search t) names)
|
(let ((case-fold-search t) names)
|
||||||
(while (re-search-forward org-babel-result-w-name-regexp nil t)
|
(while (re-search-forward org-babel-result-w-name-regexp nil t)
|
||||||
(setq names (cons (match-string-no-properties 9) names)))
|
(setq names (cons (match-string-no-properties 9) names)))
|
||||||
names)))
|
names))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun org-babel-next-src-block (&optional arg)
|
(defun org-babel-next-src-block (&optional arg)
|
||||||
|
|
Loading…
Reference in New Issue