diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-10-03 11:03:00 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-10-03 11:03:00 -0400 |
| commit | 3dc61a0913bb72f576cfbd18ef31299f8548ab19 (patch) | |
| tree | 21e3e698184ecadb233b66503b1ada4e3d93719e /lisp/pcomplete.el | |
| parent | 8ea0a99305da16de73e508c943db3e844eda2e9e (diff) | |
| download | emacs-3dc61a0913bb72f576cfbd18ef31299f8548ab19.tar.gz | |
* lisp/minibuffer.el (completion-table-case-fold): Use currying.
(completion--styles-type, completion--cycling-threshold-type): New constants.
(completion-styles, completion-category-overrides)
(completion-cycle-threshold): Use them.
* lisp/pcomplete.el (pcomplete-completions-at-point): Adjust call to
completion-table-case-fold.
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 4ac69df8e3a..4b25c1643af 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -523,8 +523,7 @@ Same as `pcomplete' but using the standard completion UI." (funcall norm-func (directory-file-name f)) seen))))))) (when pcomplete-ignore-case - (setq table - (apply-partially #'completion-table-case-fold table))) + (setq table (completion-table-case-fold table))) (list beg (point) table :predicate pred :exit-function |