diff options
| author | Philip Kaludercic | 2022-10-23 13:07:43 +0200 |
|---|---|---|
| committer | Philip Kaludercic | 2022-10-23 13:07:48 +0200 |
| commit | ab46a0df7b88c9c2d2af8dc528e775083bcbc936 (patch) | |
| tree | c6889e948bc1ab9d0ade60f84b3d3f2dc0901c50 | |
| parent | 7640b0751ba1065f43ff93ed7ad2cc0d9dff9a97 (diff) | |
| download | emacs-ab46a0df7b88c9c2d2af8dc528e775083bcbc936.tar.gz emacs-ab46a0df7b88c9c2d2af8dc528e775083bcbc936.zip | |
; Remove unnecessary 'let' binding
* lisp/emacs-lisp/package-vc.el (pacakge-vc-desc->spec): Simplify function.
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 769f9ac5dc5..ba0f626e3e1 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el | |||
| @@ -134,12 +134,11 @@ All other values are ignored.") | |||
| 134 | "Retrieve the package specification for PKG-DESC. | 134 | "Retrieve the package specification for PKG-DESC. |
| 135 | The optional argument NAME can be used to override the default | 135 | The optional argument NAME can be used to override the default |
| 136 | name for PKG-DESC." | 136 | name for PKG-DESC." |
| 137 | (let ((spec (alist-get | 137 | (alist-get |
| 138 | (or name (package-desc-name pkg-desc)) | 138 | (or name (package-desc-name pkg-desc)) |
| 139 | (alist-get (intern (package-desc-archive pkg-desc)) | 139 | (alist-get (intern (package-desc-archive pkg-desc)) |
| 140 | package-vc-archive-spec-alist) | 140 | package-vc-archive-spec-alist) |
| 141 | nil nil #'string=))) | 141 | nil nil #'string=)) |
| 142 | spec)) | ||
| 143 | 142 | ||
| 144 | (define-inline package-vc-query-spec (pkg-desc prop) | 143 | (define-inline package-vc-query-spec (pkg-desc prop) |
| 145 | "Query the property PROP for the package specification for PKG-DESC. | 144 | "Query the property PROP for the package specification for PKG-DESC. |