character choice using `dropdown-list', `read-char-choice', or
`read-char'. It appends "[a/b/c] " to the prompt if the choices were
'(?a ?b ?c). The `dropdown-list' support is disabled for now. Use
- `eval-when-compile' to load `dropdown-list'.
+ `eval-when-compile' to load `dropdown-list'. Remove `dropdown-list'.
(auth-source-netrc-saver): Use it.
(auth-source-pick-first-password): New convenience function.
(require 'gnus-util)
(require 'assoc)
(eval-when-compile (require 'cl))
-(eval-when-compile (require 'dropdown-list nil t))
(eval-and-compile
(or (ignore-errors (require 'eieio))
;; gnus-fallback-lib/ from gnus/lisp/gnus-fallback-lib
(while (not (memq k choices))
(setq k (cond
- ((and nil (featurep 'dropdown-list))
- (let* ((blank (fill (copy-sequence prompt) ?.))
- (dlc (cons (format "%s %c" prompt (car choices))
- (loop for c in (cdr choices)
- collect (format "%s %c" blank c)))))
- (nth (dropdown-list dlc) choices)))
((fboundp 'read-char-choice)
(read-char-choice full-prompt choices))
(t (message "%s" full-prompt)