From 1ecd64bfe88d06684a9ad97c1ee6df0bdd2c1eb2 Mon Sep 17 00:00:00 2001 Message-ID: <1ecd64bfe88d06684a9ad97c1ee6df0bdd2c1eb2.1694856985.git.info@protesilaos.com> From: Protesilaos Stavrou Date: Sat, 16 Sep 2023 12:36:18 +0300 Subject: [PATCH] Define new face for the contents of #+RESULTS drawers * lisp/org-faces.el (org-code-results): Define new face. * lisp/org.el (org-set-font-lock-defaults): Use it instead of the generic 'org-code' face. --- lisp/org-faces.el | 5 +++++ lisp/org.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 436552cb2..3d233eaff 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -409,6 +409,11 @@ (defface org-code '((t :inherit shadow)) :group 'org-faces :version "22.1") +(defface org-code-results '((t :inherit org-code)) + "Face for the contents of #+RESULTS drawers." + :group 'org-faces + :version "30.1") + (defface org-meta-line '((t :inherit font-lock-comment-face)) "Face for meta lines starting with \"#+\"." :group 'org-faces diff --git a/lisp/org.el b/lisp/org.el index 84ac87438..6fb099618 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5905,7 +5905,7 @@ (defun org-set-font-lock-defaults () '(org-fontify-entities) '(org-raise-scripts) ;; Code - '(org-activate-code (1 'org-code t)) + '(org-activate-code (1 'org-code-results t)) ;; COMMENT (list (format "^\\*+\\(?: +%s\\)?\\(?: +\\[#[A-Z0-9]\\]\\)? +\\(?9:%s\\)\\(?: \\|$\\)" -- 2.42.0