tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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

This commit is contained in:
Dan Davison 2009-11-01 13:22:40 -05:00
parent fd54dd9c66
commit 981c65b47d
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -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

2
lisp/org-exp-blocks.el
View File

@ -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