Commit d41d18c0 authored by Ted Zlatanov's avatar Ted Zlatanov Committed by Katsumi Yamaoka

auth-source.el (auth-source-netrc-create): Use `read-char' instead of...

auth-source.el (auth-source-netrc-create): Use `read-char' instead of `read-char-choice' for backwards compatibility.
parent 4a3988d5
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
......
......@@ -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 ""
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment