From mboxrd@z Thu Jan 1 00:00:00 1970 From: Anders Johansson Subject: [PATCH 1/1] org.el: Make faces org-quote and org-verse be appended Date: Wed, 22 Feb 2017 13:18:52 +0100 Message-ID: <87vas21k8k.fsf@gmail.com> References: <871suqtuxy.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; format=flowed Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39644) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cgW3h-0003qu-Fc for emacs-orgmode@gnu.org; Wed, 22 Feb 2017 07:30:14 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cgW3c-0007l2-He for emacs-orgmode@gnu.org; Wed, 22 Feb 2017 07:30:13 -0500 Received: from mail-lf0-x243.google.com ([2a00:1450:4010:c07::243]:35545) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cgW3c-0007kL-Aa for emacs-orgmode@gnu.org; Wed, 22 Feb 2017 07:30:08 -0500 Received: by mail-lf0-x243.google.com with SMTP id z127so102276lfa.2 for ; Wed, 22 Feb 2017 04:30:08 -0800 (PST) Received: from ajjb (pc23.kvk.uu.se. [130.238.77.23]) by smtp.googlemail.com with ESMTPSA id d77sm378172lfd.26.2017.02.22.04.30.05 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 22 Feb 2017 04:30:06 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org 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