aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohan Bockgård2015-04-12 15:37:50 +0200
committerJohan Bockgård2015-04-12 15:37:50 +0200
commita3d11ecb83cab211c3ce6cb36f27d4c7e54712df (patch)
tree63b003d69eef37a5b2618cb0c4978349fe790284
parentd0fcb21254394e22542dbc350220db3bafe0cc13 (diff)
downloademacs-a3d11ecb83cab211c3ce6cb36f27d4c7e54712df.tar.gz
emacs-a3d11ecb83cab211c3ce6cb36f27d4c7e54712df.zip
* lisp/net/nsm.el (nsm-query-user): Use cursor-in-echo-area.
-rw-r--r--lisp/net/nsm.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index 2312e22d96a..28253e5bdf5 100644
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -308,6 +308,7 @@ unencrypted."
308 (?s . session) 308 (?s . session)
309 (?a . always))) 309 (?a . always)))
310 (prefix "") 310 (prefix "")
311 (cursor-in-echo-area t)
311 response) 312 response)
312 (while (not response) 313 (while (not response)
313 (setq response 314 (setq response
@@ -315,7 +316,7 @@ unencrypted."
315 (assq (downcase 316 (assq (downcase
316 (read-char 317 (read-char
317 (concat prefix 318 (concat prefix
318 "Continue connecting? (No, Session only, Always)"))) 319 "Continue connecting? (No, Session only, Always) ")))
319 responses))) 320 responses)))
320 (unless response 321 (unless response
321 (ding) 322 (ding)