Mercurial > emacs

changeset 77162:3c1a4db3e853

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tmm-get-keybind): Use car-safe to avoid errors with inherited keymaps.
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 13 Apr 2007 03:57:37 +0000
parents 0ebcdaee8a4e
children 6e2b57342d25
files lisp/tmm.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))