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

[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



reply via email to

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