Re: [unicode-2] tmm-menubar breaks in org mode

[Nick Roberts]

 > Here is an easily reproducible bug:
 > 
 >     o   emacs -Q
 >     o   M-x org-mode
 >     o   M-x tmm-menubar
 > 
 > And backtrace:
 > ,----
 > | Debugger entered--Lisp error: (wrong-type-argument listp keymap)
 > |   tmm-get-keybind([menu-bar])
 > |   tmm-menubar()
 > |   call-interactively(tmm-menubar)
 > |   execute-extended-command(nil)
 > |   call-interactively(execute-extended-command)
 > `----

It fails on Emacs 22 too (it would be best if you checked this first).  I'm
pretty sure it relates to my changes, but I'm not sure yet that the bug is
in tmm.el.  org-mode has an awesome menubar!


Looking at the local map, I see the keyword keymap in the list many times but
not as a car.  Is that reasonable?  I can't find the entries that follow
them in the menubar, i.e, "Headings", "Up", "Show All" and "Hide Leaves" which
look like they should appear under the "Tbl" top level menu item.

...
 (Column menu-item "Column" ...) ...)) keymap (headings "Headings" keymap 
(outline-up-heading "Up" . outline-up-heading) (outline-next-visible-heading 
"Next" . outline-next-visible-heading) (outline-previous-visible-heading 
"Previous" . outline-previous-visible-heading) (outline-forward-same-level 
"Next Same Level" . outline-forward-same-level) (outline-backward-same-level 
"Previous Same Level" . outline-backward-same-level) (outline-insert-heading 
"New heading" . outline-insert-heading) (copy menu-item "Copy to kill ring" 
outline-headers-as-kill :enable mark-active) (move-subtree-up menu-item "Move 
subtree up" outline-move-subtree-up) (move-subtree-down menu-item "Move subtree 
down" outline-move-subtree-down) ...) (show "Show" keymap (show-all "Show All" 
. show-all) (show-entry "Show Entry" . show-entry) (show-branches "Show 
Branches" . show-branches) (show-children "Show Children" . show-children) 
(show-subtree "Show Subtree" . show-subtree) "Show") (hide "Hide" keymap 
(hide-leaves "Hide Leaves" . hide-leaves) (hide-body "Hide Body" . hide-body) 
(hide-entry "Hide Entry" . hide-entry) (hide-subtree "Hide Subtree" . 
hide-subtree) (hide-sublevels "Hide Sublevels" . hide-sublevels) (hide-other 
"Hide Other" . hide-other) "Hide"))


Carsten,

Does this keymap look right to you?


-- 
Nick                                           http://www.inet.net.nz/~nickrob