mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-src: Tiny fix 

* lisp/org-src.el (org-src-font-lock-fontify-block): Ensure LANG is case
  insensitive.
This commit is contained in:
Nicolas Goaziou 2016-09-22 21:43:38 +02:00
parent 687214a092
commit bfc9c815e2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-src.el
View File

@ -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))