diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2013-04-03 07:46:04 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2013-04-03 09:17:12 -0600 |
| commit | cd9d3d948e038f0bb1230b4336663bd61a891f18 (patch) | |
| tree | 888dd664c33c2109fe558c49773d12a621edf907 | |
| parent | fe98647f14064b49d0cbed57e90681ced8f9f34e (diff) | |
| download | org-mode-cd9d3d948e038f0bb1230b4336663bd61a891f18.tar.gz | |
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.
| -rw-r--r-- | lisp/ob-R.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/lisp/ob-R.el b/lisp/ob-R.el index de9ec5b..67d3c37 100644 --- a/lisp/ob-R.el +++ b/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) session (save-window-excursion - (save-excursion - (when (get-buffer session) - ;; Session buffer exists, but with dead process - (set-buffer session)) - (require 'ess) (R) - (rename-buffer - (if (bufferp session) - (buffer-name session) - (if (stringp session) - session - (buffer-name)))) - (current-buffer))))))) + (when (get-buffer session) + ;; Session buffer exists, but with dead process + (set-buffer session)) + (require 'ess) (R) + (rename-buffer + (if (bufferp session) + (buffer-name session) + (if (stringp session) + session + (buffer-name)))) + (current-buffer)))))) (defun org-babel-R-associate-session (session) "Associate R code buffer with an R session. |