[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 724f712ef1 1/2: Preserve <title> in the Emacs manuals
From: |
Robert Pluim |
Subject: |
emacs-28 724f712ef1 1/2: Preserve <title> in the Emacs manuals |
Date: |
Mon, 4 Jul 2022 08:15:24 -0400 (EDT) |
branch: emacs-28
commit 724f712ef17d4a248048d97a8c9b72f95fcf0914
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Robert Pluim <rpluim@gmail.com>
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)
---
admin/admin.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/admin/admin.el b/admin/admin.el
index 57d5afb23b..2a597e624b 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>")