Fix loaddefs generation

* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Prevent
one kind of string match error.
This commit is contained in:
Po Lu 2022-06-01 18:21:36 +08:00
parent 495c93d015
commit 28358db930

View file

@ -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)