From 981c65b47d0a4f49219e1049b3158c06bcf4bada Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sun, 1 Nov 2009 13:22:40 -0500 Subject: [PATCH] Avoid empty strings when splitting header line in org-exp-blocks. --- ChangeLog | 5 +++++ lisp/org-exp-blocks.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 77cca37e4..56a8be328 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2009-11-01 Dan Davison + + * org-exp-blocks.el: Modify split separator regexp to avoid empty + strings. + 2009-10-21 James TD Smith * UTILITIES/x11idle.c: Add a small C program which outputs the X11 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