emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/package+vc b21f80bbb9 2/2: ; Replace 'let*' with 'let' where pos


From: Philip Kaludercic
Subject: feature/package+vc b21f80bbb9 2/2: ; Replace 'let*' with 'let' where possible
Date: Wed, 2 Nov 2022 05:15:39 -0400 (EDT)

branch: feature/package+vc
commit b21f80bbb971d5e5193c04823536265ecd2ca8e8
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    ; 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 6134e6ed3d..74f1c35ea6 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]