diff options
| author | Juri Linkov <juri@linkov.net> | 2019-11-27 01:18:17 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-11-27 01:18:17 +0200 |
| commit | b3c0fb21bd910f5d86490154451cc324ce9ad66b (patch) | |
| tree | b1a02c46a12013510ff46d065f8340ff73bcd0e0 /lisp/subr.el | |
| parent | 6960a7543cef8cadc2cb9c20d3f21983ed71621a (diff) | |
| download | emacs-b3c0fb21bd910f5d86490154451cc324ce9ad66b.tar.gz | |
Allow recursive minibuffers for yes-or-no-p and y-or-n-p (bug#17272 bug#19064)
* lisp/subr.el (y-or-n-p): Let-bind enable-recursive-minibuffers to t.
* src/fns.c (Fyes_or_no_p): Specbind Qenable_recursive_minibuffers to Qt.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index fe55566b52d..01f4f531b14 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2847,6 +2847,7 @@ is nil and `use-dialog-box' is non-nil." (t (setq prompt (funcall padded prompt)) (let* ((empty-history '()) + (enable-recursive-minibuffers t) (str (read-from-minibuffer prompt nil (make-composed-keymap y-or-n-p-map query-replace-map) |