emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]