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

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> 2011-02-23 Lars Ingebrigtsen <larsi@gnus.org>
   
* gnus-start.el (gnus-dribble-read-file): Set * gnus-start.el (gnus-dribble-read-file): Set
......
...@@ -1011,13 +1011,12 @@ See `auth-source-search' for details on SPEC." ...@@ -1011,13 +1011,12 @@ See `auth-source-search' for details on SPEC."
(goto-char (point-max)) (goto-char (point-max))
;; ask AFTER we've successfully opened the file ;; ask AFTER we've successfully opened the file
(let (done k) (let ((prompt (format "Add to file %s? %s: "
(while (not done)
(setq k (read-char-choice
(format "Add to file %s? %s: "
file file
"(y)es/(n)o but use it/(e)dit line/(s)kip file") "(y)es/(n)o but use it/(e)dit line/(s)kip file"))
'(?y ?n ?e ?s))) done k)
(while (not done)
(setq k (read-char prompt))
(case k (case k
(?y (setq done t)) (?y (setq done t))
(?n (setq add "" (?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