|
@@ -513,7 +513,7 @@ as `org-src-fontify-natively' is non-nil."
|
|
org-buffer)))
|
|
org-buffer)))
|
|
(setq pos next))))
|
|
(setq pos next))))
|
|
;; Add Org faces.
|
|
;; 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))
|
|
(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 src-face))
|
|
(font-lock-append-text-property start end 'face 'org-block))
|
|
(font-lock-append-text-property start end 'face 'org-block))
|