Mercurial > emacs
changeset 105681:fac384c9a868
(read-key-delay): Reduce to 0.01.
(read-key): Use read-key-sequence-vector to avoid turning M-t into 244
(bug#4751).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 20 Oct 2009 01:29:17 +0000 |
| parents | 0504b0a2d425 |
| children | eb7471ca2f53 |
| files | lisp/ChangeLog lisp/subr.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 19 23:21:04 2009 +0000 +++ b/lisp/ChangeLog Tue Oct 20 01:29:17 2009 +0000 @@ -1,3 +1,9 @@ +2009-10-20 Stefan Monnier <monnier@iro.umontreal.ca> + + * subr.el (read-key-delay): Reduce to 0.01. + (read-key): Use read-key-sequence-vector to avoid turning M-t into 244 + (bug#4751). + 2009-10-19 Stefan Monnier <monnier@iro.umontreal.ca> * bindings.el (function-key-map): Map C-@ to C-SPC if C-@ is unbound.
--- a/lisp/subr.el Mon Oct 19 23:21:04 2009 +0000 +++ b/lisp/subr.el Tue Oct 20 01:29:17 2009 +0000 @@ -1802,7 +1802,7 @@ (defconst read-key-empty-map (make-sparse-keymap)) -(defvar read-key-delay 0.1) +(defvar read-key-delay 0.01) ;Fast enough for 100Hz repeat rate, hopefully. (defun read-key (&optional prompt) "Read a key from the keyboard. @@ -1838,7 +1838,7 @@ (unwind-protect (progn (use-global-map read-key-empty-map) - (aref (catch 'read-key (read-key-sequence prompt nil t)) 0)) + (aref (catch 'read-key (read-key-sequence-vector prompt nil t)) 0)) (cancel-timer timer) (use-global-map old-global-map))))