[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu 4ea3f80957 1/2: Simplify the definition of the mi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu 4ea3f80957 1/2: Simplify the definition of the minor-mode (#243) |
Date: |
Tue, 8 Nov 2022 03:57:32 -0500 (EST) |
branch: externals/corfu
commit 4ea3f80957194358ad9fe56d91e8a594a6ab7562
Author: dr-scsi <59777257+dr-scsi@users.noreply.github.com>
Commit: GitHub <noreply@github.com>
Simplify the definition of the minor-mode (#243)
* extensions/corfu-indexed.el (corfu-indexed-mode): Use (if ...)
instead of (cond ...) with two clauses for minor-mode definition.
---
extensions/corfu-indexed.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index a50773eb07..3bdbf396f7 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -94,15 +94,14 @@
(define-minor-mode corfu-indexed-mode
"Prefix candidates with indices."
:global t :group 'corfu
- (cond
- (corfu-indexed-mode
- (advice-add #'corfu--affixate :filter-return #'corfu-indexed--affixate)
- (dolist (cmd corfu-indexed--commands)
- (advice-add cmd :around #'corfu-indexed--handle-prefix)))
- (t
+ (if corfu-indexed-mode
+ (progn
+ (advice-add #'corfu--affixate :filter-return #'corfu-indexed--affixate)
+ (dolist (cmd corfu-indexed--commands)
+ (advice-add cmd :around #'corfu-indexed--handle-prefix)))
(advice-remove #'corfu--affixate #'corfu-indexed--affixate)
(dolist (cmd corfu-indexed--commands)
- (advice-remove cmd #'corfu-indexed--handle-prefix)))))
+ (advice-remove cmd #'corfu-indexed--handle-prefix))))
(provide 'corfu-indexed)
;;; corfu-indexed.el ends here