diff options
| author | Johan Bockgård | 2015-04-12 15:37:50 +0200 |
|---|---|---|
| committer | Johan Bockgård | 2015-04-12 15:37:50 +0200 |
| commit | a3d11ecb83cab211c3ce6cb36f27d4c7e54712df (patch) | |
| tree | 63b003d69eef37a5b2618cb0c4978349fe790284 | |
| parent | d0fcb21254394e22542dbc350220db3bafe0cc13 (diff) | |
| download | emacs-a3d11ecb83cab211c3ce6cb36f27d4c7e54712df.tar.gz emacs-a3d11ecb83cab211c3ce6cb36f27d4c7e54712df.zip | |
* lisp/net/nsm.el (nsm-query-user): Use cursor-in-echo-area.
| -rw-r--r-- | lisp/net/nsm.el | 3 |
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) |