commit/XEmacs: kehoea: Autoload within #'keymapp, as documented.

1 new commit in XEmacs:

https://bitbucket.org/xemacs/xemacs/commits/236e4afc565d/
Changeset:   236e4afc565d
User:        kehoea
Date:        2014-07-02 18:45:49
Summary:     Autoload within #'keymapp, as documented.

src/ChangeLog addition:

2014-07-02  Aidan Kehoe  <[email protected]>

	* 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  <[email protected]>

	* byte-optimize.el (side-effect-free-fns):
	#'keymapp is not side-effect-free, it can autoload.
Affected #:  4 files

diff -r 0e9f791cc6558e3dba92ffff659d331138f1431e -r 236e4afc565dcd32516d0946525c2c63397573c3 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-02  Aidan Kehoe  <[email protected]>
+
+	* byte-optimize.el (side-effect-free-fns):
+	#'keymapp is not side-effect-free, it can autoload.
+
 2014-07-02  Aidan Kehoe  <[email protected]>
 
 	* cmdloop.el:

diff -r 0e9f791cc6558e3dba92ffff659d331138f1431e -r 236e4afc565dcd32516d0946525c2c63397573c3 lisp/byte-optimize.el
--- a/lisp/byte-optimize.el
+++ b/lisp/byte-optimize.el
@@ -1340,7 +1340,7 @@
 	 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

diff -r 0e9f791cc6558e3dba92ffff659d331138f1431e -r 236e4afc565dcd32516d0946525c2c63397573c3 src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2014-07-02  Aidan Kehoe  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* event-stream.c (Fnext_command_event):

diff -r 0e9f791cc6558e3dba92ffff659d331138f1431e -r 236e4afc565dcd32516d0946525c2c63397573c3 src/keymap.c
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1008,7 +1008,7 @@
        (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

Repository URL: https://bitbucket.org/xemacs/xemacs/

--

This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.