diff options
| -rw-r--r-- | admin/admin.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/admin/admin.el b/admin/admin.el index 57d5afb23b7..2a597e624bc 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -477,10 +477,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>") |