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