diff options
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index d441db76235..f70a8cd2ea2 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -541,15 +541,15 @@ of `menu-bar-final-items'." ;; Make a list of all the bindings in all the keymaps. (setq minorbind (mapcar 'cdr (minor-mode-key-binding keyseq))) (setq localbind (local-key-binding keyseq)) - (setq globalbind (cdr (global-key-binding keyseq))) + (setq globalbind (copy-sequence (cdr (global-key-binding keyseq)))) ;; If items have been redefined/undefined locally, remove them from ;; 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))) |