mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

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

Browse Source 
inherited keymaps.
This commit is contained in:
Nick Roberts 2007-04-13 03:57:37 +00:00
parent 41a023e3b7
commit 0bb48bffd6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/tmm.el
View File

@ -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)))