diff options
| author | Eli Zaretskii | 2024-08-25 15:46:05 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2024-08-25 15:46:05 +0300 |
| commit | 969498c25d0112dbdc3aa2ef75dc63681101203e (patch) | |
| tree | 85424bb34fd0943bbed314b4e6407629f76de923 /admin | |
| parent | 52829bcee614af0322882e3349c2cfcd913a8531 (diff) | |
| download | emacs-969498c25d0112dbdc3aa2ef75dc63681101203e.tar.gz emacs-969498c25d0112dbdc3aa2ef75dc63681101203e.zip | |
Remove dangerous HTML edit from admin.el
* admin/admin.el (manual-html-fix-index-2): Avoid lax matches with
"<ul>" which could mistakenly edit unrelated parts of HTML.
(Bug#72761)
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/admin.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/admin/admin.el b/admin/admin.el index a4d3720ab69..edd3246a1a3 100644 --- a/admin/admin.el +++ b/admin/admin.el | |||
| @@ -613,9 +613,7 @@ style=\"text-align:left\">") | |||
| 613 | ;; item is not there anymore. So for HTML manuals produced by | 613 | ;; item is not there anymore. So for HTML manuals produced by |
| 614 | ;; those newer versions of Texinfo we punt and leave the menu in | 614 | ;; those newer versions of Texinfo we punt and leave the menu in |
| 615 | ;; its original form. | 615 | ;; its original form. |
| 616 | (when (or (search-forward "<ul class=\"menu\">" nil t) | 616 | (when (or (search-forward "<ul class=\"menu\">" nil t)) |
| 617 | ;; FIXME? The following search seems dangerously lax. | ||
| 618 | (search-forward "<ul>" nil t)) | ||
| 619 | ;; Convert the list that Makeinfo made into a table. | 617 | ;; Convert the list that Makeinfo made into a table. |
| 620 | (replace-match "<table style=\"float:left\" width=\"100%\">") | 618 | (replace-match "<table style=\"float:left\" width=\"100%\">") |
| 621 | (forward-line 1) | 619 | (forward-line 1) |