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
23
lisp/ob-R.el
23
lisp/ob-R.el
|
@ -209,18 +209,17 @@ 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))
|
(require 'ess) (R)
|
||||||
(require 'ess) (R)
|
(rename-buffer
|
||||||
(rename-buffer
|
(if (bufferp session)
|
||||||
(if (bufferp session)
|
(buffer-name session)
|
||||||
(buffer-name session)
|
(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