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

[Miles Bader]

Index: emacs/lisp/international/encoded-kb.el
diff -c emacs/lisp/international/encoded-kb.el:1.27 
emacs/lisp/international/encoded-kb.el:1.28
*** emacs/lisp/international/encoded-kb.el:1.27 Thu Oct 10 00:21:34 2002
--- emacs/lisp/international/encoded-kb.el      Tue Feb  4 08:09:38 2003
***************
*** 253,259 ****
  
     ((eq encoded-kbd-coding 'iso2022-7)
      (define-key encoded-kbd-mode-map "\e" 'encoded-kbd-iso2022-esc-prefix))
!     
     ((eq encoded-kbd-coding 'iso2022-8)
      (define-key encoded-kbd-mode-map
        (vector ?\216) 'encoded-kbd-self-insert-iso2022-8bit)
--- 253,259 ----
  
     ((eq encoded-kbd-coding 'iso2022-7)
      (define-key encoded-kbd-mode-map "\e" 'encoded-kbd-iso2022-esc-prefix))
! 
     ((eq encoded-kbd-coding 'iso2022-8)
      (define-key encoded-kbd-mode-map
        (vector ?\216) 'encoded-kbd-self-insert-iso2022-8bit)
***************
*** 307,319 ****
        (let ((coding (keyboard-coding-system)))
        (setq saved-input-mode  (current-input-mode))
        (cond ((null coding)
!              (setq encoded-kbd-mode nil) 
               (error "No coding system for keyboard input is set"))
  
              ((= (coding-system-type coding) 1) ; SJIS
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))  
               (setq encoded-kbd-coding 'sjis))
  
              ((= (coding-system-type coding) 2) ; ISO2022
--- 307,319 ----
        (let ((coding (keyboard-coding-system)))
        (setq saved-input-mode  (current-input-mode))
        (cond ((null coding)
!              (setq encoded-kbd-mode nil)
               (error "No coding system for keyboard input is set"))
  
              ((= (coding-system-type coding) 1) ; SJIS
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))
               (setq encoded-kbd-coding 'sjis))
  
              ((= (coding-system-type coding) 2) ; ISO2022
***************
*** 321,327 ****
                   (setq encoded-kbd-coding 'iso2022-7)
                 (set-input-mode
                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!                 'use-8th-bit (nth 3 saved-input-mode))        
                 (setq encoded-kbd-coding 'iso2022-8))
               (setq encoded-kbd-iso2022-designations (make-vector 4 nil))
               (let ((flags (coding-system-flags coding))
--- 321,327 ----
                   (setq encoded-kbd-coding 'iso2022-7)
                 (set-input-mode
                  (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!                 'use-8th-bit (nth 3 saved-input-mode))
                 (setq encoded-kbd-coding 'iso2022-8))
               (setq encoded-kbd-iso2022-designations (make-vector 4 nil))
               (let ((flags (coding-system-flags coding))
***************
*** 341,353 ****
              ((= (coding-system-type coding) 3) ; BIG5
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))  
               (setq encoded-kbd-coding 'big5))
  
              ((= (coding-system-type coding) 4) ; CCL based coding
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))  
               (setq encoded-kbd-coding 'ccl))
  
              (t
--- 341,353 ----
              ((= (coding-system-type coding) 3) ; BIG5
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))
               (setq encoded-kbd-coding 'big5))
  
              ((= (coding-system-type coding) 4) ; CCL based coding
               (set-input-mode
                (nth 0 saved-input-mode) (nth 1 saved-input-mode)
!               'use-8th-bit (nth 3 saved-input-mode))
               (setq encoded-kbd-coding 'ccl))
  
              (t