From b3fbd31f17fe6a18d49253867bb5714da26c4e88 Mon Sep 17 00:00:00 2001 From: Federico Beffa Date: Thu, 31 Jul 2014 11:08:44 +0200 Subject: [PATCH] org.el: Add function to indent environment inserted by cdlatex-enviroment * lisp/org.el (org-cdlatex-environment-indent): New function. New function is bound to "\C-c{" in `org-cdlatex-mode-map' to add a LaTeX environment and indent it. TINYCHANGE --- lisp/org.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) mode change 100644 => 100755 lisp/org.el diff --git a/lisp/org.el b/lisp/org.el old mode 100644 new mode 100755 index 35b9fc779..8eed2cc90 --- a/lisp/org.el +++ b/lisp/org.el @@ -18412,7 +18412,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (org-defkey org-cdlatex-mode-map "^" 'org-cdlatex-underscore-caret) (org-defkey org-cdlatex-mode-map "`" 'cdlatex-math-symbol) (org-defkey org-cdlatex-mode-map "'" 'org-cdlatex-math-modify) -(org-defkey org-cdlatex-mode-map "\C-c{" 'cdlatex-environment) +(org-defkey org-cdlatex-mode-map "\C-c{" 'org-cdlatex-environment-indent) (defvar org-cdlatex-texmathp-advice-is-done nil "Flag remembering if we have applied the advice to texmathp already.") @@ -18490,6 +18490,13 @@ Revert to the normal definition outside of these fragments." (let (org-cdlatex-mode) (call-interactively (key-binding (vector last-input-event)))))) +(defun org-cdlatex-environment-indent (&optional environment item) + "Execute `cdlatex-environment' and indent the inserted environment." + (interactive) + (cdlatex-environment environment item) + (let ((element (org-element-at-point))) + (org-indent-region (org-element-property :begin element) + (org-element-property :end element)))) ;;;; LaTeX fragments -- 2.11.4.GIT