branch: master
commit f0acebd4c2bb99902009330ea19f7d013d07f266
Author: Stephen Whipple <s...@wicdmedia.org>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
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
))
