summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--contrib/lisp/ox-groff.el2
-rw-r--r--lisp/org-element.el2
-rw-r--r--lisp/ox-html.el3
-rw-r--r--lisp/ox-latex.el2
-rw-r--r--lisp/ox-man.el2
-rw-r--r--lisp/ox-odt.el2
-rw-r--r--lisp/ox-texinfo.el3
-rw-r--r--testing/lisp/test-org-element.el5
8 files changed, 13 insertions, 8 deletions
diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el
index 7fbd16b..d8baf39 100644
--- a/contrib/lisp/ox-groff.el
+++ b/contrib/lisp/ox-groff.el
@@ -1478,7 +1478,7 @@ holding contextual information."
"Transcode a SPECIAL-BLOCK element from Org to Groff.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
- (let ((type (downcase (org-element-property :type special-block))))
+ (let ((type (org-element-property :type special-block)))
(org-groff--wrap-label
special-block
(format "%s\n" contents))))
diff --git a/lisp/org-element.el b/lisp/org-element.el
index acdfe45..cb0c1af 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1526,7 +1526,7 @@ containing `:type', `:begin', `:end', `:contents-begin',
Assume point is at the beginning of the block."
(let* ((case-fold-search t)
(type (progn (looking-at "[ \t]*#\\+BEGIN_\\(\\S-+\\)")
- (upcase (match-string-no-properties 1)))))
+ (match-string-no-properties 1))))
(if (not (save-excursion
(re-search-forward
(format "^[ \t]*#\\+END_%s[ \t]*$" (regexp-quote type))
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 132c34f..c224c64 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -3099,8 +3099,7 @@ contextual information."
"Transcode a SPECIAL-BLOCK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
- (let* ((block-type (downcase
- (org-element-property :type special-block)))
+ (let* ((block-type (org-element-property :type special-block))
(contents (or contents ""))
(html5-fancy (and (org-html-html5-p info)
(plist-get info :html-html5-fancy)
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index d4b078c..f59d6b2 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2242,7 +2242,7 @@ holding contextual information."
"Transcode a SPECIAL-BLOCK element from Org to LaTeX.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
- (let ((type (downcase (org-element-property :type special-block)))
+ (let ((type (org-element-property :type special-block))
(opt (org-export-read-attribute :attr_latex special-block :options)))
(concat (format "\\begin{%s}%s\n" type (or opt ""))
;; Insert any label or caption within the block
diff --git a/lisp/ox-man.el b/lisp/ox-man.el
index c8c9998..9bbc52d 100644
--- a/lisp/ox-man.el
+++ b/lisp/ox-man.el
@@ -775,7 +775,7 @@ holding contextual information."
"Transcode a SPECIAL-BLOCK element from Org to Man.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
- (let ((type (downcase (org-element-property :type special-block))))
+ (let ((type (org-element-property :type special-block)))
(org-man--wrap-label
special-block
(format "%s\n" contents))))
diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el
index 205712a..96a3b83 100644
--- a/lisp/ox-odt.el
+++ b/lisp/ox-odt.el
@@ -3059,7 +3059,7 @@ contextual information."
"Transcode a SPECIAL-BLOCK element from Org to ODT.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
- (let ((type (downcase (org-element-property :type special-block)))
+ (let ((type (org-element-property :type special-block))
(attributes (org-export-read-attribute :attr_odt special-block)))
(cond
;; Annotation.
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index fa02988..9e6dbd1 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -1235,7 +1235,8 @@ holding contextual information."
"Transcode a SPECIAL-BLOCK element from Org to Texinfo.
CONTENTS holds the contents of the block. INFO is a plist used
as a communication channel."
- contents)
+ (let ((type (org-element-property :type)))
+ (format "@%s\n%s@end %s" type contents type)))
;;;; Src Block
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 83f6647..e93ab75 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1860,6 +1860,11 @@ Outside list"
(equal "SPECIAL"
(org-test-with-temp-text "#+BEGIN_SPECIAL\nText\n#+END_SPECIAL"
(org-element-property :type (org-element-at-point)))))
+ ;; Special blocks are case sensitive.
+ (should
+ (equal "CaSe"
+ (org-test-with-temp-text "#+BEGIN_CaSe\nText\n#+END_CaSe"
+ (org-element-property :type (org-element-at-point)))))
;; Special blocks can contain paragraphs.
(should
(eq 'paragraph