From cc7052540b9b7ff0a738b548d60ae369ec2173bf Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Mon, 22 Feb 2010 13:37:16 -0500 Subject: [PATCH] babel: allow point to move to end of comint buffer --- contrib/babel/lisp/langs/org-babel-R.el | 2 +- contrib/babel/lisp/org-babel-comint.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/babel/lisp/langs/org-babel-R.el b/contrib/babel/lisp/langs/org-babel-R.el index 67d0f41e3..ec65080da 100644 --- a/contrib/babel/lisp/langs/org-babel-R.el +++ b/contrib/babel/lisp/langs/org-babel-R.el @@ -39,7 +39,7 @@ "Execute a block of R code with org-babel. This function is called by `org-babel-execute-src-block'." (message "executing R source code block...") - (save-window-excursion + (save-excursion (let* ((processed-params (org-babel-process-params params)) (result-type (fourth processed-params)) (session (org-babel-R-initiate-session (first processed-params))) diff --git a/contrib/babel/lisp/org-babel-comint.el b/contrib/babel/lisp/org-babel-comint.el index d65f05494..e693a4034 100644 --- a/contrib/babel/lisp/org-babel-comint.el +++ b/contrib/babel/lisp/org-babel-comint.el @@ -45,7 +45,7 @@ body inside the protection of `save-window-excursion' and `save-match-data'." (declare (indent 1)) - `(save-window-excursion + `(save-excursion (save-match-data (unless (org-babel-comint-buffer-livep ,buffer) (error (format "buffer %s doesn't exist or has no process" ,buffer)))