procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

package-buffer-info: Move 'require' earlier

Browse source 
* lisp/emacs-lisp/package.el (package-buffer-info):
Move 'require' earlier, before it is needed.
This commit is contained in:
Stefan Kangas 2024-07-06 15:19:10 +02:00
parent f910514721
commit 235b9e85a6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/package.el
View file

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