Mercurial > hg > xemacs-beta
view lisp/term/vt200.el @ 4869:e533a9912ef1
Eliminate funcalls, #'handle-pre-motion-command-current-command-is-motion
2010-01-20 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (handle-pre-motion-command-current-command-is-motion):
This function is called a *lot*, make it faster, making
keysyms-equal inline, calling #'characterp (which doesn't have a
bytecode) much more rarely, and not throwing and catching. This
won't make much difference in practice, but does eliminate losts
of noise from profiling, e.g. at startup.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 20 Jan 2010 17:30:29 +0000 |
parents | 376386a54a3c |
children |
line wrap: on
line source
;; For our purposes we can treat the vt200 and vt100 almost alike. ;; Most differences are handled by the termcap entry. (load "term/vt100" nil t) ;; Make F11 an escape key. (define-key function-key-map "\e[23~" [?\e])