diff options
Diffstat (limited to 'lisp/org/org-special-blocks.el')
| -rw-r--r-- | lisp/org/org-special-blocks.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org/org-special-blocks.el b/lisp/org/org-special-blocks.el index 43b37c64016..ddd612074b4 100644 --- a/lisp/org/org-special-blocks.el +++ b/lisp/org/org-special-blocks.el @@ -80,17 +80,17 @@ seen. This is run after a few special cases are taken care of." (add-hook 'org-export-latex-after-blockquotes-hook 'org-special-blocks-convert-latex-special-cookies) -(defvar line) +(defvar org-line) (defun org-special-blocks-convert-html-special-cookies () "Converts the special cookies into div blocks." - ;; Uses the dynamically-bound variable `line'. - (when (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" line) + ;; Uses the dynamically-bound variable `org-line'. + (when (and org-line (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" org-line)) (message "%s" (match-string 1)) - (when (equal (match-string 2 line) "START") + (when (equal (match-string 2 org-line) "START") (org-close-par-maybe) - (insert "\n<div class=\"" (match-string 1 line) "\">") + (insert "\n<div class=\"" (match-string 1 org-line) "\">") (org-open-par)) - (when (equal (match-string 2 line) "END") + (when (equal (match-string 2 org-line) "END") (org-close-par-maybe) (insert "\n</div>") (org-open-par)) |