Commits

Aidan Kehoe  committed 236e4af

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.

  • Participants
  • Parent commits 0e9f791

Comments (0)

Files changed (4)

File lisp/ChangeLog

+2014-07-02  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* byte-optimize.el (side-effect-free-fns):
+	#'keymapp is not side-effect-free, it can autoload.
+
 2014-07-02  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* cmdloop.el:

File lisp/byte-optimize.el

 	 hash-table-p
 	 identity ignore integerp integer-or-marker-p interactive-p
 	 invocation-directory invocation-name
-	 keymapp list list* listp
+	 list list* listp
 	 make-marker mark mark-marker markerp memory-limit minibuffer-window
 	 ;; mouse-movement-p not in XEmacs
 	 natnump nlistp not null number-or-marker-p numberp

File src/ChangeLog

+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.
+
 2014-07-02  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* event-stream.c (Fnext_command_event):

File src/keymap.c

        (object))
 {
   /* This function can GC */
-  return KEYMAPP (get_keymap (object, 0, 0)) ? Qt : Qnil;
+  return KEYMAPP (get_keymap (object, 0, 1)) ? Qt : Qnil;
 }
 
 /* Check that OBJECT is a keymap (after dereferencing through any