/[emacs]/emacs/lisp/international/quail.el
ViewVC logotype

Diff of /emacs/lisp/international/quail.el

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

revision 1.110 by eliz, Wed Sep 5 12:01:51 2001 UTC revision 1.110.4.1 by eliz, Sun Jan 20 17:52:22 2002 UTC
# Line 1340  Return the input string." Line 1340  Return the input string."
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)
# Line 1357  Return the input string." Line 1358  Return the input string."
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)
# Line 1394  Return the input string." Line 1396  Return the input string."
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
# Line 1420  Return the input string." Line 1423  Return the input string."
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)

Legend:
Removed from v.1.110  
changed lines
  Added in v.1.110.4.1

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