Passing t into keymap function

This commit is contained in:
Russell Black 2015-01-03 13:53:38 -07:00
parent 60029cb0ab
commit b8f0799ce8

View file

@ -414,7 +414,8 @@ For full documentation. please see commentary.
(quote ,(cdr binding)) (quote ,(cdr binding))
,(if (stringp name) name `',name) ,(if (stringp name) name `',name)
nil)))) nil))))
keymap-alist) keymap-alist
t)
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (binding) (lambda (binding)
@ -424,7 +425,8 @@ For full documentation. please see commentary.
(quote ,(cdr binding)) (quote ,(cdr binding))
,(if (stringp name) name `',name) ,(if (stringp name) name `',name)
t)))) t))))
overriding-keymap-alist) overriding-keymap-alist
t)
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (binding) (lambda (binding)