From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH 06/10] Use prefix arg in org-edit-special Date: Mon, 1 Apr 2013 01:42:20 -0400 Message-ID: <1364794944-13826-7-git-send-email-aaronecay@gmail.com> References: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37715) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVt-0002l2-Sh for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UMXVr-0000w6-PK for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:37 -0400 Received: from mail-qe0-f41.google.com ([209.85.128.41]:63900) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVr-0000vz-Lc for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:35 -0400 Received: by mail-qe0-f41.google.com with SMTP id 7so1059873qeb.14 for ; Sun, 31 Mar 2013 22:42:35 -0700 (PDT) In-Reply-To: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org.el (org-edit-special): Use prefix arg, as docstring says we do Only makes a difference for src-block editing. --- lisp/org.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 04ce386..1edfbc4 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19943,7 +19943,7 @@ When in a fixed-width region, call `org-edit-fixed-width-region'. When at an #+INCLUDE keyword, visit the included file. On a link, call `ffap' to visit the link at point. Otherwise, return a user error." - (interactive) + (interactive "P") (let ((element (org-element-at-point))) (assert (not buffer-read-only) nil "Buffer is read-only: %s" (buffer-name)) @@ -19958,8 +19958,9 @@ Otherwise, return a user error." ;; At a src-block with a session and function called with ;; an ARG: switch to the buffer related to the inferior ;; process. - (funcall (intern (concat "org-babel-prep-session:" lang)) - session params))))) + (switch-to-buffer + (funcall (intern (concat "org-babel-prep-session:" lang)) + session params)))))) (keyword (if (member (org-element-property :key element) '("INCLUDE" "SETUPFILE")) (find-file -- 1.8.2