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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico 5c10607: Fix indexed mode (Fix #151)


From: ELPA Syncer
Subject: [elpa] externals/vertico 5c10607: Fix indexed mode (Fix #151)
Date: Mon, 1 Nov 2021 08:57:34 -0400 (EDT)

branch: externals/vertico
commit 5c10607fa268c25b49ce7d598fa822e121f9da27
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix indexed mode (Fix #151)
---
 extensions/vertico-indexed.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/extensions/vertico-indexed.el b/extensions/vertico-indexed.el
index d38719f..4d4549a 100644
--- a/extensions/vertico-indexed.el
+++ b/extensions/vertico-indexed.el
@@ -54,16 +54,16 @@
                    prefix)
            suffix index start))
 
-(defun vertico-indexed--handle-prefix (&rest orig)
-  "Handle prefix argument before applying ORIG function."
+(defun vertico-indexed--handle-prefix (orig &rest args)
+  "Handle prefix argument before calling ORIG function with ARGS."
   (if (and current-prefix-arg (called-interactively-p t))
       (let ((vertico--index (+ vertico-indexed--min (prefix-numeric-value 
current-prefix-arg))))
         (if (or (< vertico--index vertico-indexed--min)
                 (> vertico--index vertico-indexed--max)
                 (= vertico--total 0))
             (minibuffer-message "Out of range")
-          (apply orig)))
-    (apply orig)))
+          (funcall orig)))
+    (apply orig args)))
 
 ;;;###autoload
 (define-minor-mode vertico-indexed-mode



reply via email to

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