diff options
| -rw-r--r-- | lisp/org/org-src.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/org/org-src.el b/lisp/org/org-src.el index a02402cf60e..16aa443232f 100644 --- a/lisp/org/org-src.el +++ b/lisp/org/org-src.el | |||
| @@ -918,15 +918,15 @@ fontification of code blocks see `org-src-fontify-block' and | |||
| 918 | ;; from `jit-lock-function' (Bug#25132). | 918 | ;; from `jit-lock-function' (Bug#25132). |
| 919 | (let ((inhibit-modification-hooks nil)) | 919 | (let ((inhibit-modification-hooks nil)) |
| 920 | (delete-region (point-min) (point-max)) | 920 | (delete-region (point-min) (point-max)) |
| 921 | (insert string " ") ;; so there's a final property change | 921 | (insert string " ")) ;; so there's a final property change |
| 922 | (unless (eq major-mode lang-mode) (funcall lang-mode)) | 922 | (unless (eq major-mode lang-mode) (funcall lang-mode)) |
| 923 | (org-font-lock-ensure) | 923 | (org-font-lock-ensure) |
| 924 | (setq pos (point-min)) | 924 | (setq pos (point-min)) |
| 925 | (while (setq next (next-single-property-change pos 'face)) | 925 | (while (setq next (next-single-property-change pos 'face)) |
| 926 | (put-text-property | 926 | (put-text-property |
| 927 | (+ start (1- pos)) (1- (+ start next)) 'face | 927 | (+ start (1- pos)) (1- (+ start next)) 'face |
| 928 | (get-text-property pos 'face) org-buffer) | 928 | (get-text-property pos 'face) org-buffer) |
| 929 | (setq pos next)))) | 929 | (setq pos next))) |
| 930 | (add-text-properties | 930 | (add-text-properties |
| 931 | start end | 931 | start end |
| 932 | '(font-lock-fontified t fontified t font-lock-multiline t)) | 932 | '(font-lock-fontified t fontified t font-lock-multiline t)) |