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

[Glenn Morris]

Nick Roberts wrote:

> 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?

According to the lispref "Inheritance and Keymaps", yes. Eg:

(let ((map (make-sparse-keymap)))
       (set-keymap-parent map text-mode-map)
       map)

So how about this fix:

*** tmm.el      3 Apr 2007 10:09:45 -0000       1.52
--- tmm.el      12 Apr 2007 22:46:20 -0000
***************
*** 547,555 ****
          ;; the global list.
          (dolist (minor minorbind)
            (dolist (item (cdr minor))
!             (setq globalbind (assq-delete-all (car item) globalbind))))
          (dolist (item (cdr localbind))
!           (setq globalbind (assq-delete-all (car item) globalbind)))
  
          (setq globalbind (cons 'keymap globalbind))
          (setq allbind (cons globalbind (cons localbind minorbind)))
--- 547,555 ----
          ;; the global list.
          (dolist (minor minorbind)
            (dolist (item (cdr minor))
!               (setq globalbind (assq-delete-all (car-safe item) globalbind))))
          (dolist (item (cdr localbind))
!             (setq globalbind (assq-delete-all (car-safe item) globalbind)))
  
          (setq globalbind (cons 'keymap globalbind))
          (setq allbind (cons globalbind (cons localbind minorbind)))