/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.320 by lektu, Wed Aug 28 06:43:11 2002 UTC revision 1.321 by kfstorm, Sat Sep 7 22:50:44 2002 UTC
# Line 1092  any other non-digit terminates the chara Line 1092  any other non-digit terminates the chara
1092          (if inhibit-quit (setq quit-flag nil)))          (if inhibit-quit (setq quit-flag nil)))
1093        (cond ((null char))        (cond ((null char))
1094              ((not (integerp char))              ((not (integerp char))
1095               (setq unread-command-events (this-single-command-raw-keys)               (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
1096                     done t))                     done t))
1097              ((/= (logand char ?\M-\^@) 0)              ((/= (logand char ?\M-\^@) 0)
1098               ;; Turn a meta-character into a character with the 0200 bit set.               ;; Turn a meta-character into a character with the 0200 bit set.
# Line 1109  any other non-digit terminates the chara Line 1109  any other non-digit terminates the chara
1109              ((and (not first) (eq char ?\C-m))              ((and (not first) (eq char ?\C-m))
1110               (setq done t))               (setq done t))
1111              ((not first)              ((not first)
1112               (setq unread-command-events (this-single-command-raw-keys)               (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys))
1113                     done t))                     done t))
1114              (t (setq code char              (t (setq code char
1115                       done t)))                       done t)))

Legend:
Removed from v.1.320  
changed lines
  Added in v.1.321

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26