From 4084337dbeb55c682206c8593e9ad5499e73601e Mon Sep 17 00:00:00 2001 From: Anders Johansson Date: Thu, 23 Feb 2017 14:14:50 +0100 Subject: [PATCH] org.el: Make faces org-quote and org-verse be appended * lisp/org.el (org-fontify-quote-and-verse-blocks): Append faces. Use `add-face-text-property'. 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 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 917cf87a6..fdf48f0c8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6094,9 +6094,11 @@ 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.4.GIT