popup-menu should not change KEYMAP

[Miguel V. S. Frasson]

Hi

Strangely popu-menu changes parameter KEYMAP adding an element `(nil)'
in the middle of the keys.

To reproduce, evaluate the following code

(defun test-fun () (interactive) 'hello)

(define-key
 (setq test-map (make-sparse-keymap))
 [test]
 '(menu-item "Foo" test-fun :enable t))

test-map ; --> (keymap (test menu-item "Foo" test-fun :enable t))

(popup-menu test-map)

test-map ; --> (keymap (test menu-item "Foo" test-fun (nil) :enable t))
                                                     ^^^^^

Note that the new format is not valid according to the ELisp reference
manual (node "Extended Menu Items".)

Regards

Miguel.

If emacs crashed, and you have the emacs process in the gdb debugger,
please include the output from the following gdb commands:
   `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/usr/local/share/emacs/22.0.50/etc/DEBUG for instructions.


In GNU Emacs 22.0.50.3 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2006-06-09 on miguel
X server distributor `The X.Org Foundation', version 11.0.60802000
Important settings:
 value of $LC_ALL: nil
 value of $LC_COLLATE: nil
 value of $LC_CTYPE: nil
 value of $LC_MESSAGES: nil
 value of $LC_MONETARY: nil
 value of $LC_NUMERIC: nil
 value of $LC_TIME: nil
 value of $LANG: en_US.UTF-8
 locale-coding-system: utf-8
 default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
 delete-selection-mode: t
 pc-selection-mode: t
 tooltip-mode: t
 tool-bar-mode: t
 mouse-wheel-mode: t
 menu-bar-mode: t
 file-name-shadow-mode: t
 global-font-lock-mode: t
 font-lock-mode: t
 blink-cursor-mode: t
 unify-8859-on-encoding-mode: t
 utf-translate-cjk-mode: t
 auto-compression-mode: t
 line-number-mode: t
 transient-mark-mode: t

Recent input:
<C-right> <C-right> <C-right> <right> <C-S-right> <C-S-right>
<S-delete> <delete> <home> <S-insert> SPC <C-right>
<C-right> <C-right> <C-right> <C-right> <C-right> <right>
) <return> <tab> <up> <C-right> <C-right> <tab> <down>
<tab> <up> <down> <tab> <left> <left> <end> ) <tab>
C-x C-e <up> <left> <C-left> <C-left> <left> <left>
C-x C-e <down> <down> <down> <up> <up> <up> <C-S-left>
<C-S-left> <C-insert> <down> <down> <down> <S-insert>
) C-x C-e <left> C-x C-e <up> <up> <up> <up> <up> <home>
<down> <down> <down> <down> <down> <down> C-x 1 M-x
e m a c s - r e p o <tab> <S-home> <delete> r e p o
r t <tab> <return>

Recent messages:
(menu-item "Foo" test-fun)
Mark set [2 times]
(menu-item "Foo" test-fun)
(keymap (test menu-item "Foo" test-fun))
Mark set [2 times]
Test
"Test"
(keymap (test menu-item "Foo" test-fun (nil)))
line-move-1: End of buffer
Loading emacsbug...done

--
Miguel Vinicius Santini Frasson
address@hidden