projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
auth-source.el (auth-source-netrc-create): Use `read-char' with no argument that...
[gnus]
/
lisp
/
auth-source.el
diff --git
a/lisp/auth-source.el
b/lisp/auth-source.el
index
1db6b56
..
467aa10
100644
(file)
--- a/
lisp/auth-source.el
+++ b/
lisp/auth-source.el
@@
-1041,7
+1041,8
@@
See `auth-source-search' for details on SPEC."
"(y)es/(n)o but use it/(e)dit line/(s)kip file"))
done k)
(while (not done)
- (setq k (read-char prompt))
+ (message "%s" prompt)
+ (setq k (read-char))
(case k
(?y (setq done t))
(?n (setq add ""