Preserve <title> in the Emacs manuals

* admin/admin.el (manual-html-fix-headers): Preserve the <title> element (bug#48334).
emacs-mirror · Jul 4, 2022 · b778e71 · b778e71
1 parent e0e3f2b
commit b778e71
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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>")