Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 5802:236e4afc565d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Autoload within #'keymapp, as documented. src/ChangeLog addition: 2014-07-02 Aidan Kehoe <kehoea@parhasard.net> * keymap.c (Fkeymapp): Autoload within this, as documented. Our callers are not prepared to do the intelligent thing if a symbol that is fboundp to an autoloaded keymap, is not itself #'keymapp. lisp/ChangeLog addition: 2014-07-02 Aidan Kehoe <kehoea@parhasard.net> * byte-optimize.el (side-effect-free-fns): #'keymapp is not side-effect-free, it can autoload.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 02 Jul 2014 17:45:49 +0100
parents f9e4d44504a4
children 36934833b4f3
comparison
equal deleted inserted replaced
5801:0e9f791cc655 5802:236e4afc565d
1006 The keymap may be autoloaded first if necessary. 1006 The keymap may be autoloaded first if necessary.
1007 */ 1007 */
1008 (object)) 1008 (object))
1009 { 1009 {
1010 /* This function can GC */ 1010 /* This function can GC */
1011 return KEYMAPP (get_keymap (object, 0, 0)) ? Qt : Qnil; 1011 return KEYMAPP (get_keymap (object, 0, 1)) ? Qt : Qnil;
1012 } 1012 }
1013 1013
1014 /* Check that OBJECT is a keymap (after dereferencing through any 1014 /* Check that OBJECT is a keymap (after dereferencing through any
1015 symbols). If it is, return it. 1015 symbols). If it is, return it.
1016 1016