Do not error out on fontification errors

* org.el (org-fontify-meta-lines-and-blocks): Ignore errors.

Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Ted Zlatanov 2011-06-20 11:23:44 +02:00 committed by Julien Danjou
parent adf16ffdd7
commit b3aad7ffa8
1 changed files with 5 additions and 0 deletions

View File

@ -5157,6 +5157,11 @@ will be prompted for."
:group 'org-babel) :group 'org-babel)
(defun org-fontify-meta-lines-and-blocks (limit) (defun org-fontify-meta-lines-and-blocks (limit)
(condition-case nil
(org-fontify-meta-lines-and-blocks-1 limit)
(error (message "org-mode fontification error"))))
(defun org-fontify-meta-lines-and-blocks-1 (limit)
"Fontify #+ lines and blocks, in the correct ways." "Fontify #+ lines and blocks, in the correct ways."
(let ((case-fold-search t)) (let ((case-fold-search t))
(if (re-search-forward (if (re-search-forward