andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* admin.el (manual-html-fix-headers, manual-html-fix-index-1):

Browse source 
Some updates for changes in Texinfo 5 output.
This commit is contained in:
Glenn Morris 2013-12-30 10:58:16 -08:00
parent 1b7259fce2
commit 9d1804dcb8
2 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
admin/ChangeLog
View file

@ -1,3 +1,8 @@
2013-12-30 Glenn Morris <rgm@gnu.org>
* admin.el (manual-html-fix-headers, manual-html-fix-index-1):
Some updates for changes in Texinfo 5 output.
2013-12-29 Xue Fuqiao <xfq.free@gmail.com>
* make-emacs:

19
admin/admin.el
View file

@ -395,20 +395,25 @@ the @import directive."
(defun manual-html-fix-headers ()
"Fix up HTML headers for the Emacs manual in the current buffer."
(let (opoint)
(insert manual-doctype-string)
(let ((texi5 (search-forward "<!DOCTYPE" nil t))
opoint)
;; Texinfo 5 supplies a DOCTYPE.
(or texi5
(insert manual-doctype-string))
(search-forward "<head>\n")
(insert manual-meta-string)
(search-forward "<meta")
(setq opoint (match-beginning 0))
(re-search-forward "<!--")
(unless texi5
(search-forward "<!--")
(goto-char (match-beginning 0))
(delete-region opoint (point))
(insert manual-style-string)
(search-forward "<meta http-equiv=\"Content-Style")
(setq opoint (match-beginning 0))
(setq opoint (match-beginning 0)))
(search-forward "</head>")
(delete-region opoint (match-beginning 0))))
(goto-char (match-beginning 0))
(delete-region opoint (point))
(insert manual-style-string)))
(defun manual-html-fix-node-div ()
"Fix up HTML \"node\" divs in the current buffer."
@ -426,7 +431,7 @@ the @import directive."
(defun manual-html-fix-index-1 ()
(let (opoint)
(re-search-forward "<body>\n")
(re-search-forward "<body.*>\n")
(setq opoint (match-end 0))
(search-forward "<h2 class=\"")
(goto-char (match-beginning 0))