[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/encoded-kb.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/encoded-kb.el |
Date: |
Tue, 04 Feb 2003 08:09:38 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/encoded-kb.el,
Juanma Barranquero <=