Mercurial > hg > xemacs-beta
changeset 4680:891381effa11
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.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 18 Aug 2009 12:34:34 +0100 |
| parents | 2c64d2bbb316 |
| children | 64ac4337298b |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 13 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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 ()