If we allow the current region to be inherited by the code edit buffer (patch below), then language major mode commands that operate on the region can be called remotely from the org buffer. For example
C-c C-v C-x M-; comment region according to language C-c C-v C-x C-M-\ indent region according to language Users can make these more convenient, e.g. (defun my/org-comment-dwim (&optional arg) (interactive "P") (or (org-babel-do-key-sequence-in-edit-buffer "\M-;") (comment-dwim arg))) (define-key org-mode-map "\M-;" 'my/org-comment-dwim) Dan Proposed patch: ~~~~~~~~~~~~~~~ commit 6e14f016cdfe92357092461058def5d4073541e2 Author: Dan Davison <davi...@stats.ox.ac.uk> Date: Sat Sep 4 13:43:56 2010 -0400 Transmit active region from Org buffer to code edit buffer * org-src.el (org-edit-src-code): If mark was inside code block then code edit buffer inherits mark with active region. diff --git a/lisp/org-src.el b/lisp/org-src.el index d1948cc..d0a9729 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -209,6 +209,7 @@ buffer." (setq org-edit-src-saved-temp-window-config (current-window-configuration))) (let ((line (org-current-line)) (col (current-column)) + (mark (and (use-region-p) (mark))) (case-fold-search t) (info (org-edit-src-find-region-and-lang)) (babel-info (org-babel-get-src-block-info)) @@ -217,7 +218,8 @@ buffer." (end (make-marker)) (preserve-indentation org-src-preserve-indentation) (allow-write-back-p (null code)) - block-nindent total-nindent ovl lang lang-f single lfmt begline buffer msg) + block-nindent total-nindent ovl lang lang-f single lfmt buffer msg + begline markline markcol) (if (not info) nil (setq beg (move-marker beg (nth 0 info)) @@ -235,6 +237,10 @@ buffer." block-nindent (nth 5 info) lang-f (intern (concat lang "-mode")) begline (save-excursion (goto-char beg) (org-current-line))) + (if (and mark (>= mark beg) (<= mark end)) + (save-excursion (goto-char mark) + (setq markline (org-current-line) + markcol (current-column)))) (if (equal lang-f 'table.el-mode) (setq lang-f (lambda () (text-mode) @@ -290,6 +296,11 @@ buffer." (while (re-search-forward "^," nil t) (if (eq (org-current-line) line) (setq total-nindent (1+ total-nindent))) (replace-match ""))) + (when markline + (org-goto-line (1+ (- markline begline))) + (org-move-to-column + (if preserve-indentation markcol (max 0 (- markcol total-nindent)))) + (push-mark (point) 'no-message t)) (org-goto-line (1+ (- line begline))) (org-move-to-column (if preserve-indentation col (max 0 (- col total-nindent)))) _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode