From: Po Lu <luangruo@yahoo.com>
Date: Wed, 1 Jun 2022 10:21:36 +0000 (+0800)
Subject: Fix loaddefs generation
X-Git-Tag: emacs-29.0.90~1910^2~295^2~22
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28358db93007456a1e0a6d9118823d4ddea4ba39;p=emacs.git

Fix loaddefs generation

* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Prevent
one kind of string match error.
---

diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 02f584d0af6..8dcb55d82d4 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -568,7 +568,7 @@ If INCLUDE-PACKAGE-VERSION, include package version data."
                       (search-backward "\f\n"))
                   ;; Delete the old version of the section.
                   (delete-region (match-beginning 0)
-                                 (and (search-forward "\n\f\n;;;")
+                                 (and (search-forward "\n\f\n;;;" nil t)
                                       (match-beginning 0)))
                   (forward-line -2)))
               (insert head)