[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