From 28358db93007456a1e0a6d9118823d4ddea4ba39 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Wed, 1 Jun 2022 18:21:36 +0800 Subject: [PATCH] Fix loaddefs generation * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Prevent one kind of string match error. --- lisp/emacs-lisp/loaddefs-gen.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2