mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 05:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(read-key-delay): Reduce to 0.01.

Browse source 
(read-key): Use read-key-sequence-vector to avoid turning M-t into 244
(bug#4751).
This commit is contained in:
Stefan Monnier 2009-10-20 01:29:17 +00:00
parent 9bfd9a76b6
commit 79bd5ba156
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

4
lisp/subr.el
View file

@ -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))))