diff options
| author | Chong Yidong | 2008-11-29 21:41:11 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-11-29 21:41:11 +0000 |
| commit | a88510924f90cbbd26ab701409bb6f378c55cc94 (patch) | |
| tree | 1eff496cc6609eeb7a90b1bb0660297bce754276 | |
| parent | 03a27081587fbc6b7eb42144e6061b1fa8d5d17c (diff) | |
| download | emacs-a88510924f90cbbd26ab701409bb6f378c55cc94.tar.gz emacs-a88510924f90cbbd26ab701409bb6f378c55cc94.zip | |
(PC-do-complete-and-exit): Use minibuffer-confirm-exit-commands.
| -rw-r--r-- | lisp/complete.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index f60763e4250..b53addf2099 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -340,7 +340,7 @@ See `PC-complete' for details." | |||
| 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))) |