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))) |