[elpa] externals/minuet d3ce06dfd3 2/2: refactor: replace nested if/let chains to `if-let*` in some place.

[ELPA Syncer]

branch: externals/minuet
commit d3ce06dfd33f475a63544c1937868a907553afae
Author: Milan Glacier <d...@milanglacier.com>
Commit: Milan Glacier <d...@milanglacier.com>

    refactor: replace nested if/let chains to `if-let*` in some place.
---
 minuet.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/minuet.el b/minuet.el
index ddb49d83c6..85af202c73 100644
--- a/minuet.el
+++ b/minuet.el
@@ -583,22 +583,22 @@ Return non-nil when the completion was preserved or 
updated."
 (defun minuet-next-suggestion ()
   "Cycle to next suggestion."
   (interactive)
-  (if (and minuet--current-suggestions
-           minuet--current-overlay)
-      (let ((next-index (mod (1+ minuet--current-suggestion-index)
-                             (length minuet--current-suggestions))))
-        (minuet--display-suggestion minuet--current-suggestions next-index))
+  (if-let* ((suggestions minuet--current-suggestions)
+            (_ minuet--current-overlay)
+            (next-index (mod (1+ minuet--current-suggestion-index)
+                             (length suggestions))))
+      (minuet--display-suggestion suggestions next-index)
     (minuet-show-suggestion)))
 
 ;;;###autoload
 (defun minuet-previous-suggestion ()
   "Cycle to previous suggestion."
   (interactive)
-  (if (and minuet--current-suggestions
-           minuet--current-overlay)
-      (let ((prev-index (mod (1- minuet--current-suggestion-index)
-                             (length minuet--current-suggestions))))
-        (minuet--display-suggestion minuet--current-suggestions prev-index))
+  (if-let* ((suggestions minuet--current-suggestions)
+            (_ minuet--current-overlay)
+            (prev-index (mod (1- minuet--current-suggestion-index)
+                             (length suggestions))))
+      (minuet--display-suggestion suggestions prev-index)
     (minuet-show-suggestion)))
 
 ;;;###autoload
@@ -889,12 +889,11 @@ used to accumulate text output from a process.  After 
execution,
 (defun minuet-accept-suggestion ()
   "Accept the current overlay suggestion."
   (interactive)
-  (when (and minuet--current-suggestions
-             minuet--current-overlay)
-    (let ((suggestion (nth minuet--current-suggestion-index
-                           minuet--current-suggestions)))
-      (minuet--cleanup-suggestion)
-      (insert suggestion))))
+  (when-let* ((suggestions minuet--current-suggestions)
+              (_ minuet--current-overlay)
+              (suggestion (nth minuet--current-suggestion-index suggestions)))
+    (minuet--cleanup-suggestion)
+    (insert suggestion)))
 
 ;;;###autoload
 (defun minuet-dismiss-suggestion ()