Ver Fonte

Avoid empty strings when splitting header line in org-exp-blocks.

Dan Davison há 15 anos atrás
pai
commit
bb8f063368
2 ficheiros alterados com 6 adições e 1 exclusões
  1. 5 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-exp-blocks.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-11-01  Dan Davison  <davison@stats.ox.ac.uk>
+
+	* org-exp-blocks.el: Modify split separator regexp to avoid empty
+	strings.
+
 2009-11-01  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-src.el (org-src-preserve-indentation): Document that this

+ 1 - 1
lisp/org-exp-blocks.el

@@ -176,7 +176,7 @@ specified in BLOCKS which default to the value of
 		"^\\([ \t]*\\)#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)[\r\n][ \t]*#\\+end_\\S-+.*" nil t)
           (setq indentation (length (match-string 1)))
 	  (setq type (intern (match-string 2)))
-	  (setq headers (save-match-data (split-string (match-string 3) "[ \t]")))
+	  (setq headers (save-match-data (org-split-string (match-string 3) "[ \t]+")))
 	  (setq body (match-string 4))
 	  (setq preserve-indent (or org-src-preserve-indentation (member "-i" headers)))
 	  (unless preserve-indent