[elpa] master f0acebd 063/167: Fix Custom menus

[Oleh Krehel]

branch: master
commit f0acebd4c2bb99902009330ea19f7d013d07f266
Author: Stephen Whipple <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Fix Custom menus
    
    Custom menus for `ivy-virtual-abbreviate' and `ivy-sort-functions-alist'
    now display a better user interface.
    
    Fixes #274
---
 ivy.el |   10 ++++------
 1 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/ivy.el b/ivy.el
index 1cbaaf7..3c0f229 100644
--- a/ivy.el
+++ b/ivy.el
@@ -841,8 +841,6 @@ Prioritize directories."
         nil
       (string< x y))))
 
-(autoload 'Man-goto-section "man" "" t)
-
 (defcustom ivy-sort-functions-alist
   '((read-file-name-internal . ivy-sort-file-function-default)
     (internal-complete-buffer . nil)
@@ -862,7 +860,7 @@ The entry associated to t is used for all fall-through 
cases."
   '(alist
     :key-type (choice
                (const :tag "All other functions" t)
-               (function :tag "Function"))
+               (symbol :tag "Function"))
     :value-type (choice
                  (const :tag "plain sort" string-lessp)
                  (const :tag "file sort" ivy-sort-file-function-default)
@@ -1686,7 +1684,7 @@ CANDIDATES are assumed to be static."
                  nil)
                 ivy--index)))))
 
-(defun ivy-recompute-index-swiper (re-str cands)
+(defun ivy-recompute-index-swiper (_re-str cands)
   (let ((tail (nthcdr ivy--index ivy--old-cands))
         idx)
     (if (and tail ivy--old-cands (not (equal "^" ivy--old-re)))
@@ -1840,8 +1838,8 @@ CANDS is a list of strings."
 (defcustom ivy-virtual-abbreviate 'name
   "The mode of abbreviation for virtual buffer names."
   :type '(choice
-          (const :tag "Only name" 'name)
-          (const :tag "Full path" 'full)
+          (const :tag "Only name" name)
+          (const :tag "Full path" full)
           ;; eventually, uniquify
           ))