From 7f359d248874a6fc6a1472247d3982c85dc11544 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 22 Nov 2023 17:51:45 -0500 Subject: [PATCH] (package-quickstart-refresh): Generate marginally more efficient code * lisp/emacs-lisp/package.el (package-quickstart-refresh): Include only one copy of the file names. --- lisp/emacs-lisp/package.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5