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

Fix e03e837 

* lisp/org-src.el (org-src-font-lock-fontify-block): Fix typos and
  silence byte-compiler.
This commit is contained in:
Rasmus 2016-09-22 09:34:31 +02:00
parent e03e837168
commit 687214a092
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-src.el
View File

@ -513,8 +513,8 @@ as `org-src-fontify-natively' is non-nil."
org-buffer)))
(setq pos next))))
;; Add Org faces.
(let ((src-face (cadr (assoc-ignore-case lang org-src-block-faces))))
(when (or (facep src-face) (listp))
(let ((src-face (cadr (assoc-string lang org-src-block-faces))))
(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))
(add-text-properties