From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 6 Jul 2024 13:19:10 +0000 (+0200)
Subject: package-buffer-info: Move 'require' earlier
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~772
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=235b9e85a672fa1e24ba12a00af62b3307f0d4c0;p=emacs.git

package-buffer-info: Move 'require' earlier

* lisp/emacs-lisp/package.el (package-buffer-info):
Move 'require' earlier, before it is needed.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index fac824d44a4..53d04b0d5ec 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1174,6 +1174,7 @@ boundaries."
   (let ((file-name (match-string-no-properties 1))
         (desc      (match-string-no-properties 2))
         (start     (line-beginning-position)))
+    (require 'lisp-mnt)
     ;; This warning was added in Emacs 27.1, and should be removed at
     ;; the earliest in version 31.1.  The idea is to phase out the
     ;; requirement for a "footer line" without unduly impacting users
@@ -1190,7 +1191,6 @@ boundaries."
     ;; Try to include a trailing newline.
     (forward-line)
     (narrow-to-region start (point))
-    (require 'lisp-mnt)
     ;; Use some headers we've invented to drive the process.
     (let* (;; Prefer Package-Version; if defined, the package author
            ;; probably wants us to use it.  Otherwise try Version.