diff options
| author | Rasmus <rasmus@gmx.us> | 2016-09-22 09:34:31 +0200 |
|---|---|---|
| committer | Rasmus <rasmus@gmx.us> | 2016-09-22 09:34:31 +0200 |
| commit | 687214a0921f874e8178786815904470f8b2888b (patch) | |
| tree | a0fa2155d708dc7bc9a88fc4674ed580a6d0c58d | |
| parent | e03e837168f1fd1b8cf83e872c5fee3581721e6b (diff) | |
| download | org-mode-687214a0921f874e8178786815904470f8b2888b.tar.gz | |
Fix e03e837
* lisp/org-src.el (org-src-font-lock-fontify-block): Fix typos and
silence byte-compiler.
| -rw-r--r-- | lisp/org-src.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 8985dfb..dc95652 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -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 |