mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:07:46 +00:00
Avoid empty strings when splitting header line in org-exp-blocks.
This commit is contained in:
parent
fd54dd9c66
commit
981c65b47d
|
@ -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>
|
2009-10-21 James TD Smith <ahktenzero@mohorovi.cc>
|
||||||
|
|
||||||
* UTILITIES/x11idle.c: Add a small C program which outputs the X11
|
* UTILITIES/x11idle.c: Add a small C program which outputs the X11
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue