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