[Emacs-diffs] emacs/lisp ChangeLog subr.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/10/20 01:29:22

Modified files:
        lisp           : ChangeLog subr.el 

Log message:
        (read-key-delay): Reduce to 0.01.
        (read-key): Use read-key-sequence-vector to avoid turning M-t into 244
        (bug#4751).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16463&r2=1.16464
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.660&r2=1.661

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16463
retrieving revision 1.16464
diff -u -b -r1.16463 -r1.16464
--- ChangeLog   19 Oct 2009 15:03:24 -0000      1.16463
+++ ChangeLog   20 Oct 2009 01:29:17 -0000      1.16464
@@ -1,3 +1,9 @@
+2009-10-20  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * bindings.el (function-key-map): Map C-@ to C-SPC if C-@ is unbound.

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.660
retrieving revision 1.661
diff -u -b -r1.660 -r1.661
--- subr.el     16 Oct 2009 05:04:00 -0000      1.660
+++ subr.el     20 Oct 2009 01:29:22 -0000      1.661
@@ -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))))