[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 28358db930 1/2: Fix loaddefs generation
From: |
Po Lu |
Subject: |
master 28358db930 1/2: Fix loaddefs generation |
Date: |
Wed, 1 Jun 2022 06:25:58 -0400 (EDT) |
branch: master
commit 28358db93007456a1e0a6d9118823d4ddea4ba39
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
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 02f584d0af..8dcb55d82d 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)