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

[Stefan Monnier]

Index: emacs/lisp/international/encoded-kb.el
diff -c emacs/lisp/international/encoded-kb.el:1.25 
emacs/lisp/international/encoded-kb.el:1.26
*** emacs/lisp/international/encoded-kb.el:1.25 Fri Nov 30 19:18:21 2001
--- emacs/lisp/international/encoded-kb.el      Mon Apr  8 18:53:31 2002
***************
*** 196,209 ****
     ((= last-command-char ?\217)               ; SS3 (Single Shift 3)
      (aset encoded-kbd-iso2022-invocations 2 3))
     (t
!   (let* ((charset (aref encoded-kbd-iso2022-designations
!                       (or (aref encoded-kbd-iso2022-invocations 2)
!                           (aref encoded-kbd-iso2022-invocations 1))))
!        (char (if (= (charset-dimension charset) 1)
!                  (make-char charset last-command-char)
                   (make-char charset last-command-char
                              (read-char-exclusive)))))
!     (aset encoded-kbd-iso2022-invocations 2 nil)
        (setq unread-command-events (cons char unread-command-events))))))
  
  (defun encoded-kbd-self-insert-sjis ()
--- 196,209 ----
     ((= last-command-char ?\217)               ; SS3 (Single Shift 3)
      (aset encoded-kbd-iso2022-invocations 2 3))
     (t
!     (let* ((charset (aref encoded-kbd-iso2022-designations
!                         (or (aref encoded-kbd-iso2022-invocations 2)
!                             (aref encoded-kbd-iso2022-invocations 1))))
!          (char (if (= (charset-dimension charset) 1)
!                    (make-char charset last-command-char)
                   (make-char charset last-command-char
                              (read-char-exclusive)))))
!       (aset encoded-kbd-iso2022-invocations 2 nil)
        (setq unread-command-events (cons char unread-command-events))))))
  
  (defun encoded-kbd-self-insert-sjis ()