More select key for dropdown list (Issue 58)

This commit is contained in:
Zhang Chiyuan 2009-03-21 15:28:20 +00:00
parent 42bb30967b
commit 71ab2a18ed

View File

@ -1836,10 +1836,10 @@ handle the end-of-buffer error fired in it by calling
(<= (aref key 0) (+ ?0 (min 9 candidate-count))))
(setq selection (- (aref key 0) ?1)
done t))
((member key `(,(char-to-string ?\C-p) [up]))
((member key `(,(char-to-string ?\C-p) [up] "p"))
(setq selidx (mod (+ candidate-count (1- (or selidx 0)))
candidate-count)))
((member key `(,(char-to-string ?\C-n) [down]))
((member key `(,(char-to-string ?\C-n) [down] "n"))
(setq selidx (mod (1+ (or selidx -1)) candidate-count)))
((member key `(,(char-to-string ?\f))))
((member key `(,(char-to-string ?\r) [return]))