[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 784728f 1/4: Rename commands vertico-beginning/
From: |
Protesilaos Stavrou |
Subject: |
[elpa] externals/vertico 784728f 1/4: Rename commands vertico-beginning/end-of-buffer -> vertico-first/last |
Date: |
Thu, 15 Apr 2021 13:23:23 -0400 (EDT) |
branch: externals/vertico
commit 784728f49e6c0788f7b05281de8c1cff2f9ef178
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename commands vertico-beginning/end-of-buffer -> vertico-first/last
---
vertico.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/vertico.el b/vertico.el
index de12a37..d90e0d6 100644
--- a/vertico.el
+++ b/vertico.el
@@ -89,9 +89,9 @@
(defvar vertico-map
(let ((map (make-composed-keymap nil minibuffer-local-map)))
- (define-key map [remap beginning-of-buffer] #'vertico-beginning-of-buffer)
- (define-key map [remap minibuffer-beginning-of-buffer]
#'vertico-beginning-of-buffer)
- (define-key map [remap end-of-buffer] #'vertico-end-of-buffer)
+ (define-key map [remap beginning-of-buffer] #'vertico-first)
+ (define-key map [remap minibuffer-beginning-of-buffer] #'vertico-first)
+ (define-key map [remap end-of-buffer] #'vertico-last)
(define-key map [remap scroll-down-command] #'vertico-scroll-down)
(define-key map [remap scroll-up-command] #'vertico-scroll-up)
(define-key map [remap next-line] #'vertico-next)
@@ -463,12 +463,12 @@
(max (if (or (vertico--allow-prompt-selection) (not
vertico--candidates)) -1 0)
(min index (- vertico--total 1)))))
-(defun vertico-beginning-of-buffer ()
+(defun vertico-first ()
"Go to first candidate."
(interactive)
(vertico--goto 0))
-(defun vertico-end-of-buffer ()
+(defun vertico-last ()
"Go to last candidate."
(interactive)
(vertico--goto (- vertico--total 1)))