diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2009-11-10 12:04:01 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2009-11-10 12:47:43 -0700 |
| commit | 63ae2299da27d5539564dcde490d2bb4fb6d67f7 (patch) | |
| tree | 79f50e03848af61da1adcaecd51e38da1be0d598 | |
| parent | 04e9c05c6473ece65dbd70113ddd0066e65d37e9 (diff) | |
| download | org-mode-63ae2299da27d5539564dcde490d2bb4fb6d67f7.tar.gz | |
org-exp-blocks: uniform handling of upper/lower-case blocks
| -rw-r--r-- | lisp/org-exp-blocks.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index 258d863..2aea4ff 100644 --- a/lisp/org-exp-blocks.el +++ b/lisp/org-exp-blocks.el @@ -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))) |