(throw 'exit (lambda () (minibuffer-quit-recursive-edit (1- levels))))
(throw 'exit (lambda () (signal 'minibuffer-quit nil)))))
-(defun self-insert-and-exit ()
- "Terminate minibuffer input."
- (declare (obsolete nil "30.1"))
- (interactive)
- (if (characterp last-command-event)
- (call-interactively 'self-insert-command)
- (ding))
- (exit-minibuffer))
-
(defvar completion-in-region-functions nil
"Wrapper hook around `completion--in-region'.
\(See `with-wrapper-hook' for details about wrapper hooks.)")