mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 08:16:27 +00:00
Code Releases Activity

org-exp-blocks: uniform handling of upper/lower-case blocks

Browse source
This commit is contained in:
Eric Schulte 2009-11-10 12:04:01 -07:00
parent 04e9c05c64
commit 63ae2299da
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -175,7 +175,7 @@ specified in BLOCKS which default to the value of
(while (re-search-forward
"^\\([ \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 type (intern (downcase (match-string 2))))
(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)))