From a51b8a7919b935559a8716aa959851e7960d7ec4 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 4 Nov 2010 08:03:48 +0100 Subject: [PATCH] inlinetasks: fix latex export wrt conversion to lists * org-inlinetask.el (org-inlinetask-export-handler): Remove protection from @ so it can be removed during LaTeX export. --- lisp/org-inlinetask.el | 22 ++++++++++------------ 1 files changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index c000999..f3fcee9 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -183,15 +183,13 @@ Either remove headline and meta data, or do special formatting." (setq headline (concat (if (match-end 2) (concat - (org-add-props - (format - "@ %s@" - (if (member (match-string 2 headline) - org-done-keywords) - "done" "todo") - (match-string 2 headline) - (match-string 2 headline)) - nil 'org-protected t) + (format + "@ %s@" + (if (member (match-string 2 headline) + org-done-keywords) + "done" "todo") + (match-string 2 headline) + (match-string 2 headline)) " ") "") (match-string 4 headline))) (when content @@ -200,11 +198,11 @@ Either remove headline and meta data, or do special formatting." (if (string-match "[ \t\n]+\\'" content) (setq content (substring content 0 (match-beginning 0)))) (setq content (org-remove-indentation content)) - (if latexp (setq content (concat "\\quad \\\\\n" content))))) + (if latexp (setq content (concat "\\nbsp\\\\ \\quad " content))))) (insert (make-string (org-inlinetask-get-current-indentation) ?\ ) - "- ") + "- ") (setq indent (make-string (current-column) ?\ )) - (insert headline " ::") + (insert headline " :: ") (if content (insert (if htmlp " " (concat "\n" indent)) (mapconcat 'identity (org-split-string content "\n") -- 1.7.3.2