From 63ae2299da27d5539564dcde490d2bb4fb6d67f7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 10 Nov 2009 12:04:01 -0700 Subject: [PATCH] org-exp-blocks: uniform handling of upper/lower-case blocks --- lisp/org-exp-blocks.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el index 258d863c7..2aea4ff59 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)))