[elpa] externals/vertico ab1e883: Linting and minor fixes

[ELPA Syncer]

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

    Linting and minor fixes
---
 extensions/vertico-buffer.el | 1 +
 extensions/vertico-flat.el   | 2 +-
 extensions/vertico-grid.el   | 2 +-
 extensions/vertico-mouse.el  | 6 +++---
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index 9885ba4..1397b2f 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -42,6 +42,7 @@
     (window-height . ,(+ 3 vertico-count))
     (side . top))
   "Display action for the Vertico buffer."
+  :group 'vertico
   :type `(choice
           (const :tag "Reuse some window"
                  (display-buffer-reuse-window))
diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 8b36a76..4266710 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -107,7 +107,7 @@
   (cond
    (vertico-flat-mode
     ;; Allow toggling between flat and grid modes
-    (when (and (bound-and-true-p vertico-grid-mode) (fboundp 
#'vertico-grid-mode))
+    (when (and (bound-and-true-p vertico-grid-mode) (fboundp 
'vertico-grid-mode))
       (vertico-grid-mode -1))
     ;; Shrink current minibuffer window
     (when-let (win (active-minibuffer-window))
diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 6be32a4..ea4e77d 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -137,7 +137,7 @@ When scrolling beyond this limit, candidates may be 
truncated."
   (cond
    (vertico-grid-mode
     ;; Allow toggling between flat and grid modes
-    (when (and (bound-and-true-p vertico-flat-mode) (fboundp 
#'vertico-flat-mode))
+    (when (and (bound-and-true-p vertico-flat-mode) (fboundp 
'vertico-flat-mode))
       (vertico-flat-mode -1))
     ;; Shrink current minibuffer window
     (when-let (win (active-minibuffer-window))
diff --git a/extensions/vertico-mouse.el b/extensions/vertico-mouse.el
index 3193aaa..5481025 100644
--- a/extensions/vertico-mouse.el
+++ b/extensions/vertico-mouse.el
@@ -37,7 +37,7 @@
   "Face used for mouse highlighting."
   :group 'vertico-faces)
 
-(defun vertico--mouse-candidate-map (index)
+(defun vertico-mouse--candidate-map (index)
   "Return keymap for candidate with INDEX."
   (let ((map (make-sparse-keymap)))
     (define-key map [mouse-1] (lambda ()
@@ -62,7 +62,7 @@
     (when (= index vertico--index)
       (add-face-text-property 0 (length cand) 'vertico-current 'append cand)))
   (add-text-properties 0 (1- (length cand))
-                       `(mouse-face vertico-mouse keymap 
,(vertico--mouse-candidate-map index))
+                       `(mouse-face vertico-mouse keymap 
,(vertico-mouse--candidate-map index))
                        cand)
   cand)
 
@@ -89,7 +89,7 @@
     (advice-add #'vertico--setup :after #'vertico-mouse--setup))
    (t
     (advice-remove #'vertico--format-candidate 
#'vertico-mouse--format-candidate)
-    (advice-remove #'vertico--setup #'vertico-reverse--setup))))
+    (advice-remove #'vertico--setup #'vertico-mouse--setup))))
 
 (provide 'vertico-mouse)
 ;;; vertico-mouse.el ends here