[COMMIT] Eliminate 781 funcalls at startup, simple.el

APPROVE COMMIT NOTE: This patch has been committed. This was some low-hanging fruit from XEMACSDEBUG="(start-profiling)" ./xemacs -vanilla with an immediate (stop-profiling) once the binary came up. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1250595274 -3600 # Node ID 891381effa11f5533e1bc096fec66f2ef0948dde # Parent 2c64d2bbb316ed5af5b7e536652b0e60701d91fd Eliminate 781 funcalls at startup, simple.el 2009-08-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * 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 () -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches