I working on porting some lisp code from Emacs to XEmacs. One area I'm
having a problem in is with a certain popup menu. It works ok on Emacs
but crashes XEmacs. I think it has to do with the length of the strings
being put into the popup menu.
I'm been able to come up with a simple snippet of lisp code that can
recreate it. It would appear the magic number to make it crash is 64
characters.
I see that popup menu is in the c-code and I get lost in there pretty
quick.
anyhow, here is the test case:
(defun popup-menu-2 (e)
(interactive "@e")
(let ((menu (list
""
["Crash" (crash)]
)))
(popup-menu menu)))
(global-set-key 'button3 'popup-menu-2)
(defun crash ()
""
(interactive)
(let* ((menu (list
""
(format "%s"
"1234567890123456789012345678901234567890123456789012345678901234"
))))
(popup-menu menu)
))
This one WILL crash, at least for me. Delete the end character (4), and
it will work.
jeff