aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2024-02-09 14:08:51 -0500
committerStefan Monnier2024-02-09 14:08:51 -0500
commitc4ec6d0472beac2a0cb4f5c8baec79e39dfc410b (patch)
treee4d39047be69ac8dbc1e2b2f68ebde7329f24012
parent8d6a8e573f9a1e4eb9ebbc0ec244907263e61bb8 (diff)
downloademacs-c4ec6d0472beac2a0cb4f5c8baec79e39dfc410b.tar.gz
emacs-c4ec6d0472beac2a0cb4f5c8baec79e39dfc410b.zip
* lisp/subr.el (read-char-from-minibuffer): Fix bug#68995
-rw-r--r--lisp/subr.el4
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))