From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 3 May 2023 17:18:08 +0000 (-0400)
Subject: * lisp/emacs-lisp/package.el (package-buffer-info): Fix thinko
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b28d44d4226497c4b2582bc15a59fc817eb3ce0a;p=emacs.git

* lisp/emacs-lisp/package.el (package-buffer-info): Fix thinko
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 16b2218da26..0f68f0e8041 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1196,7 +1196,7 @@ boundaries."
     ;; the earliest in version 31.1.  The idea is to phase out the
     ;; requirement for a "footer line" without unduly impacting users
     ;; on earlier Emacs versions.  See Bug#26490 for more details.
-    (unless (search-forward (concat ";;; " file-name ".el ends here"))
+    (unless (search-forward (concat ";;; " file-name ".el ends here") nil t)
       (lwarn '(package package-format) :warning
              "Package lacks a terminating comment"))
     ;; Try to include a trailing newline.