From 7ef9685bcf3bf50e0e505b17a63c01f04ad82959 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 24 Apr 2010 14:16:26 +0200 Subject: [PATCH] Revert "Change the dot in section numbers to underscore, to get valid CSS class names" This reverts commit f357e5f644078a28eb11133131002ddbca3e0cb8. --- lisp/ChangeLog | 4 ---- lisp/org-html.el | 11 +++-------- 2 files changed, 3 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a2508274..f4800f05c 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,5 @@ 2010-04-24 Carsten Dominik - * org-html.el (org-export-as-html, org-html-level-start): - Change the dot in section numbers to underscore, to get valid - CSS class names. - * org-table.el (org-table-justify-field-maybe): Make sure that inserting a value does not turn a line into a hline. diff --git a/lisp/org-html.el b/lisp/org-html.el index 133bffab3..71f62ebfd 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -871,9 +871,7 @@ lang=\"%s\" xml:lang=\"%s\"> t t line))) (while (string-match "<\\(<\\)+\\|>\\(>\\)+" txt) (setq txt (replace-match "" t t txt))) - (setq href - (replace-regexp-in-string - "\\." "_" (format "sec-%s" snumber))) + (setq href (format "sec-%s" snumber)) (setq href (or (cdr (assoc href org-export-preferred-target-alist)) href)) (push (format @@ -2087,11 +2085,8 @@ When TITLE is nil, just close all open levels." " " title))) (unless (= head-count 1) (insert "\n\n")) (setq href (cdr (assoc (concat "sec-" snumber) org-export-preferred-target-alist))) - (setq suffix (or href - (replace-regexp-in-string "\\." "_" snumber))) - (setq href (or href - (replace-regexp-in-string - "\\." "_" (concat "sec-" snumber)))) + (setq suffix (or href snumber)) + (setq href (or href (concat "sec-" snumber))) (insert (format "\n
\n%s%s\n
\n" suffix level (if extra-class (concat " " extra-class) "") level href