From b21f80bbb971d5e5193c04823536265ecd2ca8e8 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 2 Nov 2022 10:15:28 +0100 Subject: [PATCH] ; Replace 'let*' with 'let' where possible * lisp/emacs-lisp/package-vc.el (package-vc--select-packages): Do it. (package-vc--read-archive-data): Do it. --- lisp/emacs-lisp/package-vc.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 6134e6ed3da..74f1c35ea6b 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -116,7 +116,7 @@ symbol is used. The value must be a member of It will ensure that all the packages are installed as source packages. Finally SYM is set to VAL." (pcase-dolist (`(,(and (pred symbolp) name) . ,spec) val) - (let* ((pkg-desc (cadr (assoc name package-alist #'string=)))) + (let ((pkg-desc (cadr (assoc name package-alist #'string=)))) (unless (and name (package-installed-p name) (package-vc-p pkg-desc)) (cond ((null spec) @@ -232,9 +232,9 @@ return nil." "Update `package-vc-archive-spec-alist' with the contents of ARCHIVE. This function is meant to be used as a hook for `package--read-archive-hook'." - (let* ((contents-file (expand-file-name - (format "archives/%s/elpa-packages.eld" archive) - package-user-dir))) + (let ((contents-file (expand-file-name + (format "archives/%s/elpa-packages.eld" archive) + package-user-dir))) (when (file-exists-p contents-file) (with-temp-buffer (let ((coding-system-for-read 'utf-8)) -- 2.39.5