Commit 9202113a authored by Antoine Martin's avatar Antoine Martin
Browse files

Fix anchoring for numbers

parent 9c24a1ce
......@@ -95,9 +95,9 @@
(defun print-index-letter (letter file)
(if (is-number letter)
(setq letter "#")
(setq letter (string-upcase letter)))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%" letter letter))
(format file "~%<tr><th><a name=\"number\">#</a></th></tr>~%~%")
(let ((upletter (string-upcase letter)))
(format file "~%<tr><th><a name=\"~A\">~A</a></th></tr>~%~%" upletter upletter))))
(defun print-index-header (file)
(format file "<!DOCTYPE html>
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment