diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-09-22 21:43:38 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-09-22 21:43:38 +0200 |
commit | bfc9c815e24d8d69e4b9bf0144b7365ee68d74ea (patch) | |
tree | e9496d40b291eb78c2a9e52096fbec39fecc348d | |
parent | 687214a0921f874e8178786815904470f8b2888b (diff) | |
download | org-mode-bfc9c815e24d8d69e4b9bf0144b7365ee68d74ea.tar.gz |
org-src: Tiny fix
* lisp/org-src.el (org-src-font-lock-fontify-block): Ensure LANG is case
insensitive.
-rw-r--r-- | lisp/org-src.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index dc95652..b10b353 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -513,7 +513,7 @@ as `org-src-fontify-natively' is non-nil." org-buffer))) (setq pos next)))) ;; Add Org faces. - (let ((src-face (cadr (assoc-string lang org-src-block-faces)))) + (let ((src-face (nth 1 (assoc-string lang org-src-block-faces t)))) (when (or (facep src-face) (listp src-face)) (font-lock-append-text-property start end 'face src-face)) (font-lock-append-text-property start end 'face 'org-block)) |