diff options
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index e53ef505522..f41bb34045e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -3726,10 +3726,10 @@ There is no need to explicitly add `help-char' to CHARS; | |||
| 3726 | (this-command this-command) | 3726 | (this-command this-command) |
| 3727 | (result (minibuffer-with-setup-hook | 3727 | (result (minibuffer-with-setup-hook |
| 3728 | (lambda () | 3728 | (lambda () |
| 3729 | (setq-local post-self-insert-hook nil) | ||
| 3729 | (add-hook 'post-command-hook | 3730 | (add-hook 'post-command-hook |
| 3730 | (lambda () | 3731 | (lambda () |
| 3731 | ;; FIXME: Should we use `<='? | 3732 | (if (<= (1+ (minibuffer-prompt-end)) |
| 3732 | (if (= (1+ (minibuffer-prompt-end)) | ||
| 3733 | (point-max)) | 3733 | (point-max)) |
| 3734 | (exit-minibuffer))) | 3734 | (exit-minibuffer))) |
| 3735 | nil 'local)) | 3735 | nil 'local)) |