Re: [PATCH] Do not indent option keywords

[Carsten Dominik <carsten.dominik@gmail.com>]

Hi Achim,

by decoration you mean font-lock support?

Maybe this would be a better fix:

	Modified lisp/org.el
diff --git a/lisp/org.el b/lisp/org.el
index 745fb82..43df094 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5867,7 +5867,8 @@ by a #."
 	   ((or (equal dc1 "+results")
 		(member dc1 '("+begin:" "+end:" "+caption:" "+label:"
 			      "+orgtbl:" "+tblfm:" "+tblname:" "+results:"
-			      "+call:" "+header:" "+headers:" "+name:"))
+			      "+call:" "+header:" "+headers:" "+name:"
+			      "+options:"))
 		(and (match-end 4) (equal dc3 "+attr")))
 	    (add-text-properties
 	     beg (match-end 0)

- Carsten

On 9.5.2013, at 22:34, Achim Gratz <Stromeko@nexgo.de> wrote:

> That was not the patch I was trying to send, sorry.  Second try:
> 
> From 990257c497aa9fb0b8250d770c8e899762cc7abc Mon Sep 17 00:00:00 2001
> From: Achim Gratz <Stromeko@Stromeko.DE>
> 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
> 
> 
> 
> Regards,
> Achim.
> -- 
> +<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+
> 
> Samples for the Waldorf Blofeld:
> http://Synth.Stromeko.net/Downloads.html#BlofeldSamplesExtra