[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 0e37071bda 1/2: Rename functions for consistenc
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico 0e37071bda 1/2: Rename functions for consistency |
Date: |
Sun, 2 Jan 2022 13:57:47 -0500 (EST) |
branch: externals/vertico
commit 0e37071bda37821f59c1d58470d8ee6cb4bcdf40
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename functions for consistency
---
extensions/vertico-flat.el | 6 +++---
extensions/vertico-reverse.el | 6 +++---
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 8abdfc81a2..04ea9a9e3f 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -65,7 +65,7 @@
map)
"Additional keymap activated in flat mode.")
-(defun vertico-flat--display (candidates)
+(defun vertico-flat--display-candidates (candidates)
"Display CANDIDATES horizontally."
(setq-local truncate-lines nil
resize-mini-windows t)
@@ -130,12 +130,12 @@
(unless (eq (cadr vertico-map) vertico-flat-map)
(setcdr vertico-map (cons vertico-flat-map (cdr vertico-map))))
(advice-add #'vertico--arrange-candidates :override
#'vertico-flat--arrange-candidates)
- (advice-add #'vertico--display-candidates :override
#'vertico-flat--display))
+ (advice-add #'vertico--display-candidates :override
#'vertico-flat--display-candidates))
(t
(when (eq (cadr vertico-map) vertico-flat-map)
(setcdr vertico-map (cddr vertico-map)))
(advice-remove #'vertico--arrange-candidates
#'vertico-flat--arrange-candidates)
- (advice-remove #'vertico--display-candidates #'vertico-flat--display))))
+ (advice-remove #'vertico--display-candidates
#'vertico-flat--display-candidates))))
(provide 'vertico-flat)
;;; vertico-flat.el ends here
diff --git a/extensions/vertico-reverse.el b/extensions/vertico-reverse.el
index 0802111263..0715d01e12 100644
--- a/extensions/vertico-reverse.el
+++ b/extensions/vertico-reverse.el
@@ -48,7 +48,7 @@
map)
"Additional keymap activated in reverse mode.")
-(defun vertico-reverse--display (lines)
+(defun vertico-reverse--display-candidates (lines)
"Display LINES in reverse."
(move-overlay vertico--candidates-ov (point-min) (point-min))
(setq lines (nreverse lines))
@@ -67,11 +67,11 @@
(vertico-reverse-mode
(unless (eq (cadr vertico-map) vertico-reverse-map)
(setcdr vertico-map (cons vertico-reverse-map (cdr vertico-map))))
- (advice-add #'vertico--display-candidates :override
#'vertico-reverse--display))
+ (advice-add #'vertico--display-candidates :override
#'vertico-reverse--display-candidates))
(t
(when (eq (cadr vertico-map) vertico-reverse-map)
(setcdr vertico-map (cddr vertico-map)))
- (advice-remove #'vertico--display-candidates #'vertico-reverse--display))))
+ (advice-remove #'vertico--display-candidates
#'vertico-reverse--display-candidates))))
(provide 'vertico-reverse)
;;; vertico-reverse.el ends here