From ae16e6cecacf1489c40fe4ec2cc755be11a0ffe5 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 10 Jun 2009 00:38:06 +0200 Subject: [PATCH] More exporter fixes. --- lisp/org-docbook.el | 6 +++--- lisp/org-html.el | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el index 5aa12639d..40348ae1e 100644 --- a/lisp/org-docbook.el +++ b/lisp/org-docbook.el @@ -1153,9 +1153,9 @@ publishing directory." (defvar local-list-indent) (defvar local-list-type) (defun org-export-docbook-close-lists-maybe (line) - (let ((ind (or (get-text-property 0 'original-indentation line) - (and (string-match "\\S-" line) - (org-get-indentation line)))) + (let ((ind (or (get-text-property 0 'original-indentation line))) +; (and (string-match "\\S-" line) +; (org-get-indentation line)))) didclose) (when ind (while (and in-local-list diff --git a/lisp/org-html.el b/lisp/org-html.el index f48abe067..bb73f244d 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -1873,9 +1873,9 @@ If there are links in the string, don't modify these." (defvar local-list-indent) (defvar local-list-type) (defun org-export-html-close-lists-maybe (line) - (let ((ind (or (get-text-property 0 'original-indentation line) - (and (string-match "\\S-" line) - (org-get-indentation line)))) + (let ((ind (or (get-text-property 0 'original-indentation line))) +; (and (string-match "\\S-" line) +; (org-get-indentation line)))) didclose) (when ind (while (and in-local-list