mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 22:40:30 +00:00
org-exp-blocks: uniform handling of upper/lower-case blocks
This commit is contained in:
parent
04e9c05c64
commit
63ae2299da
|
@ -175,7 +175,7 @@ specified in BLOCKS which default to the value of
|
||||||
(while (re-search-forward
|
(while (re-search-forward
|
||||||
"^\\([ \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 (downcase (match-string 2))))
|
||||||
(setq headers (save-match-data (org-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)))
|
||||||
|
|
Loading…
Reference in a new issue