diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-04 12:47:16 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-07-04 14:07:30 +0200 |
| commit | 724f712ef17d4a248048d97a8c9b72f95fcf0914 (patch) | |
| tree | 9244e43df2f4e50349ec196971a5732dfb8d044f | |
| parent | 41472f3b6c028db18228fb569457ab1c1313f36b (diff) | |
| download | emacs-724f712ef17d4a248048d97a8c9b72f95fcf0914.tar.gz emacs-724f712ef17d4a248048d97a8c9b72f95fcf0914.tar.bz2 emacs-724f712ef17d4a248048d97a8c9b72f95fcf0914.zip | |
Preserve <title> in the Emacs manuals
Backport from master.
* admin/admin.el (manual-html-fix-headers): Preserve the <title>
element (bug#48334).
(cherry picked from commit b778e71af7ca8c59917334b4bb1b34cdb52faca9)
| -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>") |