From 7e18408ee3250ce829dba3585ac83d13dcc11bb2 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Wed, 17 Nov 2010 20:34:17 +0530 Subject: [PATCH 2/2] Fix broken CUSTOM_ID links to outline levels exported as lists (org-html-level-start): Modified. TINYCHANGE. --- lisp/org-html.el | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-html.el b/lisp/org-html.el index 4305af2..d1fe06d 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -2320,10 +2320,9 @@ When TITLE is nil, just close all open levels." (extra-class (and title (org-get-text-property-any 0 'html-container-class title))) (preferred (and target (cdr (assoc target org-export-preferred-target-alist)))) - (remove (or preferred target)) (l org-level-max) snumber snu href suffix) - (setq extra-targets (remove remove extra-targets)) + (setq extra-targets (remove (or preferred target) extra-targets)) (setq extra-targets (mapconcat (lambda (x) (if (org-uuidgen-p x) (setq x (concat "ID-" x))) @@ -2362,12 +2361,13 @@ When TITLE is nil, just close all open levels." (progn (org-close-li) (if target - (insert (format "
  • " target) extra-targets title "
    \n") + (insert (format "
  • " (or preferred target)) + extra-targets title "
    \n") (insert "
  • " title "
    \n"))) (aset org-levels-open (1- level) t) (org-close-par-maybe) (if target - (insert (format "