Mercurial > emacs
comparison lisp/minibuffer.el @ 94068:f2cff391663b
(minibuffer-try-completion, minibuffer-all-completions): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 14 Apr 2008 03:30:47 +0000 |
| parents | 9fefa536be58 |
| children | a91b57e652cd |
comparison
equal
deleted
inserted
replaced
| 94067:2dcfdc0c1d07 | 94068:f2cff391663b |
|---|---|
| 216 | 216 |
| 217 (defun minibuffer-try-completion (string table pred) | 217 (defun minibuffer-try-completion (string table pred) |
| 218 (if (and (symbolp table) (get table 'no-completion-styles)) | 218 (if (and (symbolp table) (get table 'no-completion-styles)) |
| 219 (try-completion string table pred) | 219 (try-completion string table pred) |
| 220 (completion--some (lambda (style) | 220 (completion--some (lambda (style) |
| 221 (funcall (intern (concat style "try-completion")) | 221 (funcall (nth 1 (assq style completion-styles-alist)) |
| 222 string table pred)) | 222 string table pred)) |
| 223 completion-styles))) | 223 completion-styles))) |
| 224 | 224 |
| 225 (defun minibuffer-all-completions (string table pred &optional hide-spaces) | 225 (defun minibuffer-all-completions (string table pred &optional hide-spaces) |
| 226 (let ((completion-all-completions-with-base-size t)) | 226 (let ((completion-all-completions-with-base-size t)) |
| 227 (if (and (symbolp table) (get table 'no-completion-styles)) | 227 (if (and (symbolp table) (get table 'no-completion-styles)) |
| 228 (all-completions string table pred hide-spaces) | 228 (all-completions string table pred hide-spaces) |
| 229 (completion--some (lambda (style) | 229 (completion--some (lambda (style) |
| 230 (funcall (intern (concat style "all-completions")) | 230 (funcall (nth 2 (assq style completion-styles-alist)) |
| 231 string table pred hide-spaces)) | 231 string table pred hide-spaces)) |
| 232 completion-styles)))) | 232 completion-styles)))) |
| 233 | 233 |
| 234 (defun minibuffer--bitset (modified completions exact) | 234 (defun minibuffer--bitset (modified completions exact) |
| 235 (logior (if modified 4 0) | 235 (logior (if modified 4 0) |