# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1250595274 -3600
# Node ID 891381effa11f5533e1bc096fec66f2ef0948dde
# Parent  2c64d2bbb316ed5af5b7e536652b0e60701d91fd
Eliminate 781 funcalls at startup, simple.el

2009-08-18  Aidan Kehoe  <kehoea@parhasard.net>

	* simple.el (handle-pre-motion-command-current-command-is-motion):
	Replace mapc + #'(lambda ...) with dolist, eliminating 781
	funcalls at XEmacs startup and decreasing GC a little.

diff -r 2c64d2bbb316 -r 891381effa11 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Aug 16 21:00:08 2009 +0100
+++ b/lisp/ChangeLog	Tue Aug 18 12:34:34 2009 +0100
@@ -1,3 +1,9 @@
+2009-08-18  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* simple.el (handle-pre-motion-command-current-command-is-motion):
+	Replace mapc + #'(lambda ...) with dolist, eliminating 781
+	funcalls at XEmacs startup and decreasing GC a little.
+
 2009-08-16  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* faces.el (xpm-color-symbols): 
diff -r 2c64d2bbb316 -r 891381effa11 lisp/simple.el
--- a/lisp/simple.el	Sun Aug 16 21:00:08 2009 +0100
+++ b/lisp/simple.el	Tue Aug 18 12:34:34 2009 +0100
@@ -2096,15 +2096,13 @@
 		    (if (characterp b)
 			(setq b (intern (char-to-string (downcase b)))))
 		    (eq a b)))
-	     (mapc #'(lambda (keysym)
-		       (when (if (listp keysym)
-				 (and (equal mods (butlast keysym))
-				      (keysyms-equal key (car (last keysym))))
-			       (keysyms-equal key keysym))
-			 (throw
-			  'handle-pre-motion-command-current-command-is-motion
-			  t)))
-		   motion-keys-for-shifted-motion)
+	     (dolist (keysym motion-keys-for-shifted-motion)
+	       (when (if (listp keysym)
+		         (and (equal mods (butlast keysym))
+			      (keysyms-equal key (car (last keysym))))
+	                (keysyms-equal key keysym))
+		 (throw 'handle-pre-motion-command-current-command-is-motion
+			t)))
 	     nil)))))
 
 (defun handle-pre-motion-command ()