[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/async 15f24b1694 3/4: Remove unneeded test in async-byt
From: |
ELPA Syncer |
Subject: |
[elpa] externals/async 15f24b1694 3/4: Remove unneeded test in async-bytecomp |
Date: |
Fri, 28 Jun 2024 12:57:25 -0400 (EDT) |
branch: externals/async
commit 15f24b1694eb805732e05030e0e118a3961c3644
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Remove unneeded test in async-bytecomp
The two tests (eq cur-package 'async) and
(string= cur-package "async") are doing the same thing, the later was
unuseful and confusing as we expect a string but cur-package is always
a symbol.
---
async-bytecomp.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/async-bytecomp.el b/async-bytecomp.el
index 503653d6bc..12b4ca638b 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -140,13 +140,10 @@ All *.elc files are systematically deleted before
proceeding."
(memq cur-package (async-bytecomp--get-package-deps
async-bytecomp-allowed-packages)))
(progn
- ;; FIXME: Why do we use (eq cur-package 'async) once
- ;; and (string= cur-package "async") afterwards?
(when (eq cur-package 'async)
- (fmakunbound 'async-byte-recompile-directory))
- ;; Add to `load-path' the latest version of async and
- ;; reload it when reinstalling async.
- (when (string= cur-package "async")
+ (fmakunbound 'async-byte-recompile-directory)
+ ;; Add to `load-path' the latest version of async and
+ ;; reload it when reinstalling async.
(cl-pushnew pkg-dir load-path)
(load "async-bytecomp"))
;; `async-byte-recompile-directory' will add directory