[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/package+vc ab46a0df7b 2/4: ; Remove unnecessary 'let' binding
From: |
Philip Kaludercic |
Subject: |
feature/package+vc ab46a0df7b 2/4: ; Remove unnecessary 'let' binding |
Date: |
Sun, 23 Oct 2022 12:05:12 -0400 (EDT) |
branch: feature/package+vc
commit ab46a0df7b88c9c2d2af8dc528e775083bcbc936
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
; Remove unnecessary 'let' binding
* lisp/emacs-lisp/package-vc.el (pacakge-vc-desc->spec): Simplify function.
---
lisp/emacs-lisp/package-vc.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 769f9ac5dc..ba0f626e3e 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -134,12 +134,11 @@ All other values are ignored.")
"Retrieve the package specification for PKG-DESC.
The optional argument NAME can be used to override the default
name for PKG-DESC."
- (let ((spec (alist-get
- (or name (package-desc-name pkg-desc))
- (alist-get (intern (package-desc-archive pkg-desc))
- package-vc-archive-spec-alist)
- nil nil #'string=)))
- spec))
+ (alist-get
+ (or name (package-desc-name pkg-desc))
+ (alist-get (intern (package-desc-archive pkg-desc))
+ package-vc-archive-spec-alist)
+ nil nil #'string=))
(define-inline package-vc-query-spec (pkg-desc prop)
"Query the property PROP for the package specification for PKG-DESC.