procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(PC-do-complete-and-exit): Synch to 2008-11-24 change to

Browse source 
minibuffer.el; recognize `confirm' and `confirm-after-completion'
values for minibuffer-completion-confirm.
This commit is contained in:
Chong Yidong 2008-11-28 19:11:58 +00:00
parent 8ce9231f25
commit f8d106b0f8
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/complete.el
View file

@ -330,13 +330,22 @@ See `PC-complete' for details."
((= (point-max) (minibuffer-prompt-end))
;; Duplicate the "bug" that Info-menu relies on...
(exit-minibuffer))
((eq minibuffer-completion-confirm 'confirm-only)
((eq minibuffer-completion-confirm 'confirm)
(if (or (eq last-command this-command)
(test-completion (field-string)
minibuffer-completion-table
minibuffer-completion-predicate))
(exit-minibuffer)
(PC-temp-minibuffer-message " [Confirm]")))
((eq minibuffer-completion-confirm 'confirm-after-completion)
;; Similar to the above, but only if trying to exit immediately
;; after typing TAB (this catches most minibuffer typos).
(if (and (memq last-command '(PC-complete minibuffer-complete))
(not (test-completion (field-string)
minibuffer-completion-table
minibuffer-completion-predicate)))
(PC-temp-minibuffer-message " [Confirm]")
(exit-minibuffer)))
(t
(let ((flag (PC-do-completion 'exit)))
(and flag