Commit 6862a473 authored by Tomohiro Matsuyama's avatar Tomohiro Matsuyama

Fixed cascade menu corruption.

parent 88efff50
......@@ -1136,13 +1136,14 @@ PROMPT is a prompt string when reading events during event loop."
(sublist (popup-item-sublist item)))
(unless index (return))
(if sublist
(popup-aif (popup-cascade-menu sublist
:around nil
:margin-left (popup-margin-left menu)
:margin-right (popup-margin-right menu)
:scroll-bar (popup-scroll-bar menu)
:parent menu
:parent-offset index)
(popup-aif (let (popup-use-optimized-column-computation)
(popup-cascade-menu sublist
:around nil
:margin-left (popup-margin-left menu)
:margin-right (popup-margin-right menu)
:scroll-bar (popup-scroll-bar menu)
:parent menu
:parent-offset index))
(and it (return it)))
(if (eq binding 'popup-select)
(return (popup-item-value-or-self item))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment