Mercurial > emacs
comparison lisp/complete.el @ 100051:172ab771edf9
(PC-do-complete-and-exit): Use minibuffer-confirm-exit-commands.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 29 Nov 2008 21:41:11 +0000 |
| parents | 92d948bc8621 |
| children | f2e50678d85a |
comparison
equal
deleted
inserted
replaced
| 100050:15255001587e | 100051:172ab771edf9 |
|---|---|
| 338 (exit-minibuffer) | 338 (exit-minibuffer) |
| 339 (PC-temp-minibuffer-message " [Confirm]"))) | 339 (PC-temp-minibuffer-message " [Confirm]"))) |
| 340 ((eq minibuffer-completion-confirm 'confirm-after-completion) | 340 ((eq minibuffer-completion-confirm 'confirm-after-completion) |
| 341 ;; Similar to the above, but only if trying to exit immediately | 341 ;; Similar to the above, but only if trying to exit immediately |
| 342 ;; after typing TAB (this catches most minibuffer typos). | 342 ;; after typing TAB (this catches most minibuffer typos). |
| 343 (if (and (memq last-command '(PC-complete minibuffer-complete)) | 343 (if (and (memq last-command minibuffer-confirm-exit-commands) |
| 344 (not (test-completion (field-string) | 344 (not (test-completion (field-string) |
| 345 minibuffer-completion-table | 345 minibuffer-completion-table |
| 346 minibuffer-completion-predicate))) | 346 minibuffer-completion-predicate))) |
| 347 (PC-temp-minibuffer-message " [Confirm]") | 347 (PC-temp-minibuffer-message " [Confirm]") |
| 348 (exit-minibuffer))) | 348 (exit-minibuffer))) |