From 79bd5ba156844c35112fa01e7c2cbb20d3da3f6d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 20 Oct 2009 01:29:17 +0000 Subject: [PATCH] (read-key-delay): Reduce to 0.01. (read-key): Use read-key-sequence-vector to avoid turning M-t into 244 (bug#4751). --- lisp/ChangeLog | 6 ++++++ lisp/subr.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 14cf0c7578a..0475e238c89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-10-20 Stefan Monnier + + * 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 * bindings.el (function-key-map): Map C-@ to C-SPC if C-@ is unbound. diff --git a/lisp/subr.el b/lisp/subr.el index ad5a061584d..9d49075a469 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1802,7 +1802,7 @@ Legitimate radix values are 8, 10 and 16." (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 @@ some sort of escape sequence, the ambiguity is resolved via `read-key-delay'." (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)))) -- 2.11.4.GIT