From 990257c497aa9fb0b8250d770c8e899762cc7abc Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Thu, 9 May 2013 22:30:08 +0200 Subject: [PATCH] org.el: do not indent option keyword lines * lisp/org.el (org-indent-line): Keep option keyword lines at column zero so they don't lose their decoration. --- lisp/org.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index 08570c3..b357c90 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -21932,6 +21932,11 @@ (defun org-indent-line () (org-inlinetask-in-task-p))) (inline-re (and inline-task-p (org-inlinetask-outline-regexp))) + (opt-re (org-make-options-regexp + '("CATEGORY" "TODO" "COLUMNS" "STARTUP" "ARCHIVE" + "LINK" "PRIORITIES" "CONSTANTS" "PROPERTY" "DRAWERS" + "SETUPFILE" "OPTIONS") + "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)")) column) (if (and orgstruct-is-++ (eq pos (point))) (let ((indent-line-function (cadadr (assoc 'indent-line-function org-fb-vars)))) @@ -21976,6 +21981,8 @@ (defun org-indent-line () (org-get-indentation (match-string 0)))) (t (org-get-indentation (match-string 0)))))) + ;; Option keywords + ((looking-at opt-re) (setq column 0)) ;; This line has nothing special, look at the previous relevant ;; line to compute indentation (t -- 1.8.2.1