procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

auth-source.el (auth-source-netrc-create): Use read-char' instead of read-char-choice' for backwards compatibility.

Browse source
This commit is contained in:
Teodor Zlatanov 2011-02-23 14:34:44 +00:00 • committed by Katsumi Yamaoka
parent 4a3988d518
commit d41d18c098
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2011-02-23 Teodor Zlatanov <tzz@lifelogs.com>
* auth-source.el (auth-source-netrc-create): Use `read-char' instead of
`read-char-choice' for backwards compatibility.
2011-02-23 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-start.el (gnus-dribble-read-file): Set

11
lisp/gnus/auth-source.el
View file

@ -1011,13 +1011,12 @@ See `auth-source-search' for details on SPEC."
(goto-char (point-max))
;; ask AFTER we've successfully opened the file
(let (done k)
(let ((prompt (format "Add to file %s? %s: "
file
"(y)es/(n)o but use it/(e)dit line/(s)kip file"))
done k)
(while (not done)
(setq k (read-char-choice
(format "Add to file %s? %s: "
file
"(y)es/(n)o but use it/(e)dit line/(s)kip file")
'(?y ?n ?e ?s)))
(setq k (read-char prompt))
(case k
(?y (setq done t))
(?n (setq add ""