Make initial selection for drop-down. Thanks Brandon Moore.

This commit is contained in:
Zhang Chiyuan 2009-02-27 15:20:45 +00:00
parent 84ac5bd613
commit a01b5eb76c

View File

@ -1820,7 +1820,7 @@ handle the end-of-buffer error fired in it by calling
(save-window-excursion
(unwind-protect
(let ((candidate-count (length candidates))
done key selidx)
done key (selidx 0))
(while (not done)
(unless (dropdown-list-at-point candidates selidx)
(switch-to-buffer (setq temp-buffer (get-buffer-create "*selection*"))