# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1176436657 0
# Node ID 3c1a4db3e853839f4cbdccd5dae4357528dceb43
# Parent  0ebcdaee8a4e9a507c45b6a2dfaf15d49a0006fe
(tmm-get-keybind): Use car-safe to avoid errors with
inherited keymaps.

diff -r 0ebcdaee8a4e -r 3c1a4db3e853 lisp/tmm.el
--- a/lisp/tmm.el	Fri Apr 13 03:01:45 2007 +0000
+++ b/lisp/tmm.el	Fri Apr 13 03:57:37 2007 +0000
@@ -547,9 +547,9 @@
 	  ;; 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)))