1340 |
(overriding-terminal-local-map (quail-translation-keymap)) |
(overriding-terminal-local-map (quail-translation-keymap)) |
1341 |
(generated-events nil) |
(generated-events nil) |
1342 |
(input-method-function nil) |
(input-method-function nil) |
1343 |
(modified-p (buffer-modified-p))) |
(modified-p (buffer-modified-p)) |
1344 |
|
last-command-event last-command this-command) |
1345 |
(setq quail-current-key "" |
(setq quail-current-key "" |
1346 |
quail-current-str "" |
quail-current-str "" |
1347 |
quail-translating t) |
quail-translating t) |
1358 |
(if (if key |
(if (if key |
1359 |
(and (commandp cmd) (not (eq cmd 'quail-other-command))) |
(and (commandp cmd) (not (eq cmd 'quail-other-command))) |
1360 |
(eq cmd 'quail-self-insert-command)) |
(eq cmd 'quail-self-insert-command)) |
1361 |
(let ((last-command-event (aref keyseq (1- (length keyseq)))) |
(progn |
1362 |
(last-command this-command) |
(setq last-command-event (aref keyseq (1- (length keyseq))) |
1363 |
(this-command cmd)) |
last-command this-command |
1364 |
|
this-command cmd) |
1365 |
(setq key t) |
(setq key t) |
1366 |
(condition-case err |
(condition-case err |
1367 |
(call-interactively cmd) |
(call-interactively cmd) |
1396 |
(overriding-terminal-local-map (quail-conversion-keymap)) |
(overriding-terminal-local-map (quail-conversion-keymap)) |
1397 |
(generated-events nil) |
(generated-events nil) |
1398 |
(input-method-function nil) |
(input-method-function nil) |
1399 |
(modified-p (buffer-modified-p))) |
(modified-p (buffer-modified-p)) |
1400 |
|
last-command-event last-command this-command) |
1401 |
(setq quail-current-key "" |
(setq quail-current-key "" |
1402 |
quail-current-str "" |
quail-current-str "" |
1403 |
quail-translating t |
quail-translating t |
1423 |
nil nil t)) |
nil nil t)) |
1424 |
(cmd (lookup-key (quail-conversion-keymap) keyseq))) |
(cmd (lookup-key (quail-conversion-keymap) keyseq))) |
1425 |
(if (if key (commandp cmd) (eq cmd 'quail-self-insert-command)) |
(if (if key (commandp cmd) (eq cmd 'quail-self-insert-command)) |
1426 |
(let ((last-command-event (aref keyseq (1- (length keyseq)))) |
(progn |
1427 |
(last-command this-command) |
(setq last-command-event (aref keyseq (1- (length keyseq))) |
1428 |
(this-command cmd)) |
last-command this-command |
1429 |
|
this-command cmd) |
1430 |
(setq key t) |
(setq key t) |
1431 |
(condition-case err |
(condition-case err |
1432 |
(call-interactively cmd) |
(call-interactively cmd) |