diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2013-04-01 01:42:20 -0400 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-03 19:02:17 +0200 |
commit | 8cda3ca6050a9df1e95475a68858cdf200d1126b (patch) | |
tree | 924393ea8e8fd0f60cef81b67813b451653ebc17 | |
parent | b5f4bd12cbb1fa881828371c5175200989af7d78 (diff) | |
download | org-mode-8cda3ca6050a9df1e95475a68858cdf200d1126b.tar.gz |
Use prefix arg in org-edit-special
* org.el (org-edit-special): Use prefix arg.
This change only makes a difference when editing source blocks.
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index c974280..06ba60a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -19944,7 +19944,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)) @@ -19959,8 +19959,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 |