branch: elpa/org-contrib
commit e33b0dd284dcd8b622ef32018a73fa886fcac5bd
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
lisp/ox-s5.el: Fix checkdoc warnings
* lisp/ox-s5.el (org-s5--divs): Escape ' in the docstring.
(org-s5-plain-list): Use `cl-case' instead of `case'.
---
lisp/ox-s5.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/ox-s5.el b/lisp/ox-s5.el
index 2b70c76ee2..c5d0356c5c 100644
--- a/lisp/ox-s5.el
+++ b/lisp/ox-s5.el
@@ -130,9 +130,9 @@ Can be overridden with the S5_UI_URL property."
(content "div" "content")
(postamble "div" "footer"))
"Alist of the three section elements for HTML export.
-The car of each entry is one of 'preamble, 'content or 'postamble.
-The cdrs of each entry are the ELEMENT_TYPE and ID for each
-section of the exported document.
+The car of each entry is one of \\='preamble, \\='content or
+\\='postamble. The cdrs of each entry are the ELEMENT_TYPE and ID for
+each section of the exported document.
If you set `org-html-container-element' to \"li\", \"ol\" will be
uses as the content ELEMENT_TYPE, generating an XOXO format
@@ -283,10 +283,10 @@ If a containing headline has the property :INCREMENTAL,
then the \"incremental\" class will be added to the to the list,
which will make the list into a \"build\"."
(let* ((type (org-element-property :type plain-list))
- (tag (case type
- (ordered "ol")
- (unordered "ul")
- (descriptive "dl"))))
+ (tag (cl-case type
+ (ordered "ol")
+ (unordered "ul")
+ (descriptive "dl"))))
(format "%s\n%s%s"
(format
"<%s class='org-%s%s'>" tag tag
