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

[Eli Zaretskii]

Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.117 
emacs/lisp/international/quail.el:1.118
*** emacs/lisp/international/quail.el:1.117     Tue Dec 18 10:35:35 2001
--- emacs/lisp/international/quail.el   Tue Jan  8 12:42:59 2002
***************
*** 1363,1369 ****
             (overriding-terminal-local-map (quail-translation-keymap))
             (generated-events nil)
             (input-method-function nil)
!            (modified-p (buffer-modified-p)))
        (setq quail-current-key ""
              quail-current-str ""
              quail-translating t)
--- 1363,1370 ----
             (overriding-terminal-local-map (quail-translation-keymap))
             (generated-events nil)
             (input-method-function nil)
!            (modified-p (buffer-modified-p))
!            last-command-event last-command this-command)
        (setq quail-current-key ""
              quail-current-str ""
              quail-translating t)
***************
*** 1380,1388 ****
            (if (if key
                    (and (commandp cmd) (not (eq cmd 'quail-other-command)))
                  (eq cmd 'quail-self-insert-command))
!               (let ((last-command-event (aref keyseq (1- (length keyseq))))
!                     (last-command this-command)
!                     (this-command cmd))
                  (setq key t)
                  (condition-case err
                      (call-interactively cmd)
--- 1381,1390 ----
            (if (if key
                    (and (commandp cmd) (not (eq cmd 'quail-other-command)))
                  (eq cmd 'quail-self-insert-command))
!               (progn
!                 (setq last-command-event (aref keyseq (1- (length keyseq)))
!                       last-command this-command
!                       this-command cmd)
                  (setq key t)
                  (condition-case err
                      (call-interactively cmd)
***************
*** 1417,1423 ****
             (overriding-terminal-local-map (quail-conversion-keymap))
             (generated-events nil)
             (input-method-function nil)
!            (modified-p (buffer-modified-p)))
        (setq quail-current-key ""
              quail-current-str ""
              quail-translating t
--- 1419,1426 ----
             (overriding-terminal-local-map (quail-conversion-keymap))
             (generated-events nil)
             (input-method-function nil)
!            (modified-p (buffer-modified-p))
!            last-command-event last-command this-command)
        (setq quail-current-key ""
              quail-current-str ""
              quail-translating t
***************
*** 1443,1451 ****
                          nil nil t))
                 (cmd (lookup-key (quail-conversion-keymap) keyseq)))
            (if (if key (commandp cmd) (eq cmd 'quail-self-insert-command))
!               (let ((last-command-event (aref keyseq (1- (length keyseq))))
!                     (last-command this-command)
!                     (this-command cmd))
                  (setq key t)
                  (condition-case err
                      (call-interactively cmd)
--- 1446,1455 ----
                          nil nil t))
                 (cmd (lookup-key (quail-conversion-keymap) keyseq)))
            (if (if key (commandp cmd) (eq cmd 'quail-self-insert-command))
!               (progn
!                 (setq last-command-event (aref keyseq (1- (length keyseq)))
!                       last-command this-command
!                       this-command cmd)
                  (setq key t)
                  (condition-case err
                      (call-interactively cmd)