ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Aaron Ecay 2013-04-01 01:42:20 -04:00 committed by Bastien Guerry
parent b5f4bd12cb
commit 8cda3ca605
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -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. When at an #+INCLUDE keyword, visit the included file.
On a link, call `ffap' to visit the link at point. On a link, call `ffap' to visit the link at point.
Otherwise, return a user error." Otherwise, return a user error."
(interactive) (interactive "P")
(let ((element (org-element-at-point))) (let ((element (org-element-at-point)))
(assert (not buffer-read-only) nil (assert (not buffer-read-only) nil
"Buffer is read-only: %s" (buffer-name)) "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 ;; At a src-block with a session and function called with
;; an ARG: switch to the buffer related to the inferior ;; an ARG: switch to the buffer related to the inferior
;; process. ;; process.
(funcall (intern (concat "org-babel-prep-session:" lang)) (switch-to-buffer
session params))))) (funcall (intern (concat "org-babel-prep-session:" lang))
session params))))))
(keyword (keyword
(if (member (org-element-property :key element) '("INCLUDE" "SETUPFILE")) (if (member (org-element-property :key element) '("INCLUDE" "SETUPFILE"))
(find-file (find-file