ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
Dan Davison 2009-11-01 14:57:42 -05:00
parent c84903f1b3
commit bb8f063368
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/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-11-01 Carsten Dominik <carsten.dominik@gmail.com> 2009-11-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-src.el (org-src-preserve-indentation): Document that this * org-src.el (org-src-preserve-indentation): Document that this

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) "^\\([ \t]*\\)#\\+begin_\\(\\S-+\\)[ \t]*\\(.*\\)?[\r\n]\\([^\000]*?\\)[\r\n][ \t]*#\\+end_\\S-+.*" nil t)
(setq indentation (length (match-string 1))) (setq indentation (length (match-string 1)))
(setq type (intern (match-string 2))) (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 body (match-string 4))
(setq preserve-indent (or org-src-preserve-indentation (member "-i" headers))) (setq preserve-indent (or org-src-preserve-indentation (member "-i" headers)))
(unless preserve-indent (unless preserve-indent