(tmm-get-keybind): Use car-safe to avoid errors with

inherited keymaps.

diff --git a/lisp/tmm.el b/lisp/tmm.el
index d441db7623585e695aa4a7f499527c51f44ad2a8..087d864d0c3a9ccbd0908a763544dcf2d7d083a3 100644 (file)
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -547,9 +547,9 @@ of `menu-bar-final-items'."
          ;; the global list.
          (dolist (minor minorbind)
            (dolist (item (cdr minor))
-             (setq globalbind (assq-delete-all (car item) globalbind))))
+             (setq globalbind (assq-delete-all (car-safe item) globalbind))))
          (dolist (item (cdr localbind))
-           (setq globalbind (assq-delete-all (car item) globalbind)))
+           (setq globalbind (assq-delete-all (car-safe item) globalbind)))
 
          (setq globalbind (cons 'keymap globalbind))
          (setq allbind (cons globalbind (cons localbind minorbind)))