Переглянути джерело

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

Dan Davison 15 роки тому
батько
коміт
981c65b47d
2 змінених файлів з 6 додано та 1 видалено
  1. 5 0
      ChangeLog
  2. 1 1
      lisp/org-exp-blocks.el

+ 5 - 0
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-10-21  James TD Smith  <ahktenzero@mohorovi.cc>
 
 	* UTILITIES/x11idle.c: Add a small C program which outputs the X11

+ 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