Fix a bug in in-buffer src fontification

* lisp/org-src.el: Append a space character to copied text so that the
                   final text property change is picked up correctly
This commit is contained in:
Dan Davison 2011-06-17 16:51:17 -07:00
parent f422849557
commit 4f3a31dd97
1 changed files with 1 additions and 1 deletions

View File

@ -774,7 +774,7 @@ fontification of code blocks see `org-src-fontify-block' and
(get-buffer-create
(concat " org-src-fontification:" (symbol-name lang-mode)))
(delete-region (point-min) (point-max))
(insert string)
(insert (concat string " ")) ;; so there's a final property change
(unless (eq major-mode lang-mode) (funcall lang-mode))
(font-lock-fontify-buffer)
(setq pos (point-min))