From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Feb 2024 19:08:51 +0000 (-0500)
Subject: * lisp/subr.el (read-char-from-minibuffer): Fix bug#68995
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c02c83f6dc305bc8a3bafed25e63d1dcc8485a10;p=emacs.git

* lisp/subr.el (read-char-from-minibuffer): Fix bug#68995

(cherry picked from commit c4ec6d0472beac2a0cb4f5c8baec79e39dfc410b)
---

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;
          (this-command this-command)
          (result (minibuffer-with-setup-hook
 		     (lambda ()
+		       (setq-local post-self-insert-hook nil)
 		       (add-hook 'post-command-hook
 				 (lambda ()
-				   ;; FIXME: Should we use `<='?
-				   (if (= (1+ (minibuffer-prompt-end))
+				   (if (<= (1+ (minibuffer-prompt-end))
 					  (point-max))
                                        (exit-minibuffer)))
 				 nil 'local))