ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fontify whole lines* of code-block or meta-lines 

Patch by Sebastien Vauban
This commit is contained in:
Sébastien Vauban 2010-08-14 01:19:54 +00:00 committed by Carsten Dominik
parent aa6e939818
commit ff1b5de478
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -5036,8 +5036,9 @@ will be prompted for."
'(display t invisible t intangible t)) '(display t invisible t intangible t))
(add-text-properties (match-beginning 1) (match-end 3) (add-text-properties (match-beginning 1) (match-end 3)
'(font-lock-fontified t face org-meta-line)) '(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)) '(font-lock-fontified t face org-block))
; for backend-specific code
t) t)
((and (match-end 4) (equal dc3 "begin")) ((and (match-end 4) (equal dc3 "begin"))
;; Truly a block ;; Truly a block
@ -5054,10 +5055,13 @@ will be prompted for."
beg end beg end
'(font-lock-fontified t font-lock-multiline t)) '(font-lock-fontified t font-lock-multiline t))
(add-text-properties beg beg1 '(face org-meta-line)) (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 (cond
(quoting (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)) ((not org-fontify-quote-and-verse-blocks))
((string= block-type "quote") ((string= block-type "quote")
(add-text-properties beg1 end1 '(face org-quote))) (add-text-properties beg1 end1 '(face org-quote)))