Add: initial-index keyword argument to function `popup-menu*'. (initial-index argument is optional argument)
Usage:
  (popup-menu*
   '(0 1 2 3)
   :initial-index 2)
Merge branch 'add-initial-index'