using the local `join' function everywhere it is applicable

eschulte · Jun 3, 2011 · 3dd0cbf · 3dd0cbf
1 parent 8049ca7
commit 3dd0cbf
Showing 1 changed file with 10 additions and 11 deletions.
diff --git a/org-export-as-s5.el b/org-export-as-s5.el
@@ -42,17 +42,16 @@
               (save-excursion
                 (replace-regexp
                  (regexp-quote "<div id=\"content\">")
-                 (mapconcat #'identity
-                            `("<div class=\"layout\">"
-                              "<div id=\"controls\"><!-- no edit --></div>"
-                              "<div id=\"currentSlide\"><!-- no edit --></div>"
-                              "<div id=\"header\"></div>"
-                              "<div id=\"footer\">"
-                              ,(format "<h1>%s</h1>" title)
-                              "</div>"
-                              "</div>"
-                              ""
-                              "<div class=\"presentation\">") "\n"))))
+                 (join `("<div class=\"layout\">"
+                         "<div id=\"controls\"><!-- no edit --></div>"
+                         "<div id=\"currentSlide\"><!-- no edit --></div>"
+                         "<div id=\"header\"></div>"
+                         "<div id=\"footer\">"
+                         ,(format "<h1>%s</h1>" title)
+                         "</div>"
+                         "</div>"
+                         ""
+                         "<div class=\"presentation\">")))))
             (lambda ()
               (save-excursion
                 (replace-regexp