mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 23:57:47 +00:00
Code Releases Activity

remove save-excursion inside save-window-excursion

Browse source 
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:
Eric Schulte 2013-04-03 07:46:04 -06:00
parent fe98647f14
commit cd9d3d948e
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/ob-R.el
View file

@ -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.