[nongnu] elpa/popup 17a0cd4 080/184: Add :initial-cursor keyword option to popup-menu*.

[ELPA Syncer]

branch: elpa/popup
commit 17a0cd4637718351de207fd40f430fe5783beec6
Author: Tomohiro Matsuyama <tomo@cx4a.org>
Commit: Tomohiro Matsuyama <tomo@cx4a.org>

    Add :initial-cursor keyword option to popup-menu*.
---
 popup.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/popup.el b/popup.el
index 2eba784..8f0a747 100644
--- a/popup.el
+++ b/popup.el
@@ -788,6 +788,16 @@ KEYMAP is a keymap that will be put on the popup contents."
           (setq hidden nil))))
     hidden))
 
+(defun popup-jump (popup cursor)
+  "Jump to a position specified by CURSOR of POPUP and draw."
+  (let ((scroll-top (popup-scroll-top popup)))
+    ;; Do not change page as much as possible.
+    (unless (and (<= scroll-top cursor)
+                 (< cursor (+ scroll-top (popup-height popup))))
+      (setf (popup-scroll-top popup) cursor))
+    (setf (popup-cursor popup) cursor)
+    (popup-draw popup)))
+
 (defun popup-select (popup i)
   "Select the item at I of POPUP and draw."
   (setq i (+ i (popup-offset popup)))
@@ -1230,6 +1240,7 @@ PROMPT is a prompt string when reading events during 
event loop."
                      (around t)
                      (width (popup-preferred-width list))
                      (height 15)
+                     initial-cursor
                      margin
                      margin-left
                      margin-right
@@ -1303,7 +1314,9 @@ isearch canceled. The arguments is whole filtered list of 
items."
   (unwind-protect
       (progn
         (popup-set-list menu list)
-        (popup-draw menu)
+        (if initial-cursor
+            (popup-jump menu initial-cursor)
+          (popup-draw menu))
         (if nowait
             menu
           (popup-menu-event-loop menu keymap fallback