diff --git a/lisp/org.el b/lisp/org.el index e03e9ca..f57c09b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5137,8 +5137,8 @@ will be prompted for." (add-text-properties beg end '(font-lock-fontified t font-lock-multiline t)) - (add-text-properties beg beg1 '(face org-meta-line)) - (add-text-properties end1 (+ end 1) '(face org-meta-line)) + (add-text-properties beg beg1 '(face org-block-begin-line)) + (add-text-properties end1 (+ end 1) '(face org-block-end-line)) ; for end_src (cond ((and lang org-src-fontify-natively) @@ -5149,9 +5149,9 @@ will be prompted for." ; end of source block ((not org-fontify-quote-and-verse-blocks)) ((string= block-type "quote") - (add-text-properties beg1 end1 '(face org-quote))) + (add-text-properties beg1 (1+ end1) '(face org-quote))) ((string= block-type "verse") - (add-text-properties beg1 end1 '(face org-verse)))) + (add-text-properties beg1 (1+ end1) '(face org-verse)))) t)) ((member dc1 '("title:" "author:" "email:" "date:")) (add-text-properties @@ -5167,7 +5167,7 @@ will be prompted for." ((not (member (char-after beg) '(?\ ?\t))) ;; just any other in-buffer setting, but not indented (add-text-properties - beg (match-end 0) + beg (1+ (match-end 0)) '(font-lock-fontified t face org-meta-line)) t) ((or (member dc1 '("begin:" "end:" "caption:" "label:"