ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org.el: Prevent an error when trying to fontify beyond (point-max). 

* org.el (org-fontify-meta-lines-and-blocks-1): Prevent an
error when trying to fontify beyond (point-max).

TINYCHANGE

Thanks to Leo and Henning for reporting this, and to Nick Dokos
for providing the fix.
This commit is contained in:
Bastien Guerry 2012-04-04 08:28:17 +02:00
parent e48d67ed6d
commit fc374109cd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org.el
View File

@ -5475,7 +5475,7 @@ will be prompted for."
((not (member (char-after beg) '(?\ ?\t))) ((not (member (char-after beg) '(?\ ?\t)))
;; just any other in-buffer setting, but not indented ;; just any other in-buffer setting, but not indented
(add-text-properties (add-text-properties
beg (1+ (match-end 0)) beg (match-end 0)
'(font-lock-fontified t face org-meta-line)) '(font-lock-fontified t face org-meta-line))
t) t)
((or (member dc1 '("begin:" "end:" "caption:" "label:" ((or (member dc1 '("begin:" "end:" "caption:" "label:"