emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH 1/1] org.el: Make faces org-quote and org-verse be appended


From: Anders Johansson
Subject: [O] [PATCH 1/1] org.el: Make faces org-quote and org-verse be appended
Date: Wed, 22 Feb 2017 13:18:52 +0100
User-agent: mu4e 0.9.19; emacs 25.1.1


This means fontification of emphasis, links etc. is kept in quote and
verse blocks even with org-fontify-quote-and-verse-blocks non-nil.

TINYCHANGE
---
lisp/org.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 3290a2b..282c078 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5934,9 +5934,9 @@ by a #."
'(org-block))))))) ; end of source block
             ((not org-fontify-quote-and-verse-blocks))
             ((string= block-type "quote")
- (add-text-properties beg1 (min (point-max) (1+ end1)) '(face org-quote))) + (add-face-text-property beg1 (min (point-max) (1+ end1)) 'org-quote t))
             ((string= block-type "verse")
- (add-text-properties beg1 (min (point-max) (1+ end1)) '(face org-verse)))) + (add-face-text-property beg1 (min (point-max) (1+ end1)) 'org-verse t))) (add-text-properties beg beg1 '(face org-block-begin-line)) (add-text-properties (min (point-max) (1+ end)) (min (point-max) (1+ end1))
                                 '(face org-block-end-line))
--
2.11.1




reply via email to

[Prev in Thread] Current Thread [Next in Thread]