[Emacs-diffs] Changes to emacs/lisp/subr.el

[Kim F. Storm]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.320 emacs/lisp/subr.el:1.321
*** emacs/lisp/subr.el:1.320    Wed Aug 28 02:43:11 2002
--- emacs/lisp/subr.el  Sat Sep  7 18:50:44 2002
***************
*** 1092,1098 ****
        (if inhibit-quit (setq quit-flag nil)))
        (cond ((null char))
            ((not (integerp char))
!            (setq unread-command-events (this-single-command-raw-keys)
                   done t))
            ((/= (logand char ?\M-\^@) 0)
             ;; Turn a meta-character into a character with the 0200 bit set.
--- 1092,1098 ----
        (if inhibit-quit (setq quit-flag nil)))
        (cond ((null char))
            ((not (integerp char))
!            (setq unread-command-events (listify-key-sequence 
(this-single-command-raw-keys))
                   done t))
            ((/= (logand char ?\M-\^@) 0)
             ;; Turn a meta-character into a character with the 0200 bit set.
***************
*** 1109,1115 ****
            ((and (not first) (eq char ?\C-m))
             (setq done t))
            ((not first)
!            (setq unread-command-events (this-single-command-raw-keys)
                   done t))
            (t (setq code char
                     done t)))
--- 1109,1115 ----
            ((and (not first) (eq char ?\C-m))
             (setq done t))
            ((not first)
!            (setq unread-command-events (listify-key-sequence 
(this-single-command-raw-keys))
                   done t))
            (t (setq code char
                     done t)))