mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 02:20:01 +00:00
remove save-excursion inside save-window-excursion
it is not necessary * lisp/ob-R.el (org-babel-R-initiate-session): Remove unnecessary save-excursion nested inside a save-window-excursion.
This commit is contained in:
parent
fe98647f14
commit
cd9d3d948e
|
@ -209,7 +209,6 @@ This function is called by `org-babel-execute-src-block'."
|
||||||
(if (org-babel-comint-buffer-livep session)
|
(if (org-babel-comint-buffer-livep session)
|
||||||
session
|
session
|
||||||
(save-window-excursion
|
(save-window-excursion
|
||||||
(save-excursion
|
|
||||||
(when (get-buffer session)
|
(when (get-buffer session)
|
||||||
;; Session buffer exists, but with dead process
|
;; Session buffer exists, but with dead process
|
||||||
(set-buffer session))
|
(set-buffer session))
|
||||||
|
@ -220,7 +219,7 @@ This function is called by `org-babel-execute-src-block'."
|
||||||
(if (stringp session)
|
(if (stringp session)
|
||||||
session
|
session
|
||||||
(buffer-name))))
|
(buffer-name))))
|
||||||
(current-buffer)))))))
|
(current-buffer))))))
|
||||||
|
|
||||||
(defun org-babel-R-associate-session (session)
|
(defun org-babel-R-associate-session (session)
|
||||||
"Associate R code buffer with an R session.
|
"Associate R code buffer with an R session.
|
||||||
|
|
Loading…
Reference in a new issue