[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fa6912f 3/3: Display cursor in echo area when promp
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master fa6912f 3/3: Display cursor in echo area when prompting |
Date: |
Fri, 05 Feb 2016 03:43:53 +0000 |
branch: master
commit fa6912fc9e9013c6ec6915c6e11e43c3d4b3e6f7
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Display cursor in echo area when prompting
* lisp/subr.el (read-multiple-choice): Display the cursor in
the echo area when prompting (bug#19368).
---
lisp/subr.el | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index a45d4a7..e47570a 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2297,13 +2297,16 @@ Usage example:
"")
full-prompt)
(setq tchar (condition-case nil
- (read-char)
+ (let ((cursor-in-echo-area t))
+ (read-char))
(error nil)))
;; The user has entered an invalid choice, so display the
;; help messages.
(when (not (assq tchar choices))
(setq wrong-char (not (memq tchar '(?? ?\C-h)))
tchar nil)
+ (when wrong-char
+ (ding))
(with-help-window (setq buf (get-buffer-create
"*Multiple Choice Help*"))
(with-current-buffer buf