From: Andrea Corallo <acorallo@gnu.org>
Date: Wed, 22 Nov 2023 22:51:45 +0000 (-0500)
Subject: (package-quickstart-refresh): Generate marginally more efficient code
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f359d248874a6fc6a1472247d3982c85dc11544;p=emacs.git

(package-quickstart-refresh): Generate marginally more efficient code

* lisp/emacs-lisp/package.el (package-quickstart-refresh): Include
only one copy of the file names.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index e23a61c58a4..d4bb6710283 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -4612,8 +4612,8 @@ activations need to be changed, such as when `package-load-list' is modified."
                 (let ((load-suffixes '(".el" ".elc")))
                   (locate-library (package--autoloads-file-name pkg))))
                (pfile (prin1-to-string file)))
-          (insert "(let ((load-true-file-name " pfile ")\
-\(load-file-name " pfile "))\n")
+          (insert "(let* ((load-file-name " pfile ")\
+\(load-true-file-name load-file-name))\n")
           (insert-file-contents file)
           ;; Fixup the special #$ reader form and throw away comments.
           (while (re-search-forward "#\\$\\|^;\\(.*\n\\)" nil 'move)