Procházet zdrojové kódy

Merge branch 'maint'

Kyle Meyer před 4 roky
rodič
revize
a8cc4f7244
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -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) ?*)
 	      (add-text-properties
 	       beg-of-endline
 	       (if whole-blockline