From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 2 Nov 2022 09:15:28 +0000 (+0100)
Subject: ; Replace 'let*' with 'let' where possible
X-Git-Tag: emacs-29.0.90~1616^2~307^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b21f80bbb971d5e5193c04823536265ecd2ca8e8;p=emacs.git

; 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.
---

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))