From 8f4fa5d2f435a4db6fb55ada29cc61c9f49b4f82 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 27 Jan 2014 23:32:21 +0100
Subject: Put tag in correct place
---
edocs.el | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/edocs.el b/edocs.el
index 18cdb0b..533bd84 100644
--- a/edocs.el
+++ b/edocs.el
@@ -212,15 +212,16 @@ KNOWN-SYMBOLS is used for referencing symbols found in other
parts of the module."
(let ((org-export-with-toc nil)
(org-export-with-section-numbers nil))
- (org-export-string-as
- (replace-regexp-in-string
- "`\\([^']+\\)'"
- (lambda (match)
- (if (member (substring match 1 -1) known-symbols)
- "@@html:@@\\1@@html:@@"
- "~\\1~"))
- txt)
- 'html t)))
+ (edocs--with-tag "div" '(("class" . "container"))
+ (org-export-string-as
+ (replace-regexp-in-string
+ "`\\([^']+\\)'"
+ (lambda (match)
+ (if (member (substring match 1 -1) known-symbols)
+ "@@html:@@\\1@@html:@@"
+ "~\\1~"))
+ txt)
+ 'html t))))
(defmethod edocs--export-format-text ((exporter edocs-ascii-exporter)
txt known-symbols)
@@ -243,13 +244,12 @@ parts of the module."
KNOWN-SYMBOLS is used for referencing symbols found in other
parts of the module."
- (edocs--with-tag "div" '(("class" . "container"))
- (edocs--export-format-text
- exporter
- (replace-regexp-in-string
- ";" "*" (replace-regexp-in-string
- "^;; " "" (replace-regexp-in-string
- ";;; Commentary:\n+" "" cmt))) known-symbols)))
+ (edocs--export-format-text
+ exporter
+ (replace-regexp-in-string
+ ";" "*" (replace-regexp-in-string
+ "^;; " "" (replace-regexp-in-string
+ ";;; Commentary:\n+" "" cmt))) known-symbols))
(defun edocs--format-doc (exporter doc known-symbols)
"Make EXPORTER perform formatting operations on DOC or on DOC's `cdr'.
--
cgit v1.2.3-54-g00ecf