diff options
author | Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> | 2010-08-14 01:19:54 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-15 08:53:26 +0200 |
commit | ff1b5de478e8575b2d862d8a70be7df78c18e7b2 (patch) | |
tree | f1caa5b56901e61f7524e3655395887928859fd5 | |
parent | aa6e939818f420dd155a7abf37a516e7534e168d (diff) | |
download | org-mode-ff1b5de478e8575b2d862d8a70be7df78c18e7b2.tar.gz |
Fontify whole lines* of code-block or meta-lines
Patch by Sebastien Vauban
-rw-r--r-- | lisp/org.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index a05f2bf..49b04f4 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5036,8 +5036,9 @@ will be prompted for." '(display t invisible t intangible t)) (add-text-properties (match-beginning 1) (match-end 3) '(font-lock-fontified t face org-meta-line)) - (add-text-properties (match-beginning 6) (match-end 6) + (add-text-properties (match-beginning 6) (+ (match-end 6) 1) '(font-lock-fontified t face org-block)) + ; for backend-specific code t) ((and (match-end 4) (equal dc3 "begin")) ;; Truly a block @@ -5054,10 +5055,13 @@ will be prompted for." beg end '(font-lock-fontified t font-lock-multiline t)) (add-text-properties beg beg1 '(face org-meta-line)) - (add-text-properties end1 end '(face org-meta-line)) + (add-text-properties end1 (+ end 1) '(face org-meta-line)) + ; for end_src (cond (quoting - (add-text-properties beg1 end1 '(face org-block))) + (add-text-properties beg1 (+ end1 1) '(face + org-block))) + ; end of source block ((not org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") (add-text-properties beg1 end1 '(face org-quote))) |