@@ -5287,7 +5287,7 @@ by a #."
(add-text-properties
beg (if whole-blockline bol-after-beginline end-of-beginline)
'(face org-block-begin-line))
- (unless (string-prefix-p "*" (match-string 1))
+ (unless (eq (char-after beg-of-endline) ?*)
beg-of-endline
(if whole-blockline