Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/minibuffer.el (completion-category-overrides): Fix type of styles

Browse source 
and add more user friendly tags.

Fixes: debbugs:9660
This commit is contained in:
Stephen Berman 2011-10-03 10:47:40 -04:00 committed by Stefan Monnier
parent 8c24b7f65f
commit 8ea0a99305
2 changed files with 15 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-10-03 Stephen Berman <stephen.berman@gmx.net>
* minibuffer.el (completion-category-overrides): Fix type of styles
and add more user friendly tags (bug#9660).
2011-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
* international/mule-cmds.el: Fix abuses of apply-partially (bug#9661).

16
lisp/minibuffer.el
View file

@ -498,15 +498,19 @@ Each override has the shape (CATEGORY . ALIST) where ALIST is
an association list that can specify properties such as:
- `styles': the list of `completion-styles' to use for that category.
- `cycle': the `completion-cycle-threshold' to use for that category."
:type `(alist :key-type (choice (const buffer)
:type `(alist :key-type (choice :tag "Category"
(const buffer)
(const file)
symbol)
:value-type
(set
(cons (const style)
(repeat ,@(mapcar (lambda (x) (list 'const (car x)))
completion-styles-alist)))
(cons (const cycle)
(set :tag "Properties to override"
(cons :tag "Completion Styles"
(const :tag "Select a style from the menu;" styles)
(repeat :tag "insert a new menu to add more styles"
(choice ,@(mapcar (lambda (x) (list 'const (car x)))
completion-styles-alist))))
(cons :tag "Completion Cycling"
(const :tag "Select one value from the menu." cycle)
(choice (const :tag "No cycling" nil)
(const :tag "Always cycle" t)
(integer :tag "Threshold"))))))