diff options
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/admin/admin.el b/admin/admin.el index 6be378b9246..c84287a7024 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -488,10 +488,11 @@ the @import directive." (delete-region opoint (point)) (search-forward "<meta http-equiv=\"Content-Style") (setq opoint (match-beginning 0))) + (search-forward "<title>") + (delete-region opoint (match-beginning 0)) (search-forward "</title>\n") - (delete-region opoint (point)) - (search-forward "<link href=") - (goto-char (match-beginning 0)) + (when (search-forward "<link href=" nil t) + (goto-char (match-beginning 0))) (insert manual-links-string) (setq opoint (point)) (search-forward "</head>") @@ -617,7 +618,7 @@ style=\"text-align:left\">") ;; its original form. (when (or (search-forward "<ul class=\"menu\">" nil t) ;; FIXME? The following search seems dangerously lax. - (search-forward "<ul>")) + (search-forward "<ul>" nil t)) ;; Convert the list that Makeinfo made into a table. (replace-match "<table style=\"float:left\" width=\"100%\">") (forward-line 1) |