From bb8f06336868a155ededb9be024174281a09b4d4 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sun, 1 Nov 2009 14:57:42 -0500 Subject: [PATCH] Avoid empty strings when splitting header line in org-exp-blocks. --- lisp/ChangeLog | 5 +++++ lisp/org-exp-blocks.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 41f373435..2b2290c5a 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-01 Dan Davison + + * org-exp-blocks.el: Modify split separator regexp to avoid empty + strings. + 2009-11-01 Carsten Dominik * org-src.el (org-src-preserve-indentation): Document that this diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index a78da004f..258d863c7 100644 --- a/lisp/org-exp-blocks.el +++ b/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