mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Log for previous change:

Browse source 
(encoded-kbd-self-insert-ccl): Fix
getting decoder.
(encoded-kbd-mode): Fix code for coding system type and
designations.
This commit is contained in:
Dave Love 2002-05-13 18:27:28 +00:00
parent 602493a815
commit fd334a5e61
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/international/encoded-kb.el
View file

@ -2,6 +2,7 @@
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Copyright (C) 2002 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -307,13 +308,13 @@ as a multilingual text encoded in a coding system set by
(let ((coding (keyboard-coding-system)))
(setq saved-input-mode (current-input-mode))
(cond ((null coding)
(setq encoded-kbd-mode nil)
(setq encoded-kbd-mode nil)
(error "No coding system for keyboard input is set"))
((eq (coding-system-type coding) 'sjis)
(set-input-mode
(nth 0 saved-input-mode) (nth 1 saved-input-mode)
'use-8th-bit (nth 3 saved-input-mode))
'use-8th-bit (nth 3 saved-input-mode))
(setq encoded-kbd-coding 'sjis))
((eq (coding-system-type coding) 'iso-2022)
@ -321,7 +322,7 @@ as a multilingual text encoded in a coding system set by
(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))
'use-8th-bit (nth 3 saved-input-mode))
(setq encoded-kbd-coding 'iso2022-8))
(setq encoded-kbd-iso2022-designations
(coding-system-get coding :designation))
@ -332,13 +333,13 @@ as a multilingual text encoded in a coding system set by
((eq (coding-system-type coding) 'big5)
(set-input-mode
(nth 0 saved-input-mode) (nth 1 saved-input-mode)
'use-8th-bit (nth 3 saved-input-mode))
'use-8th-bit (nth 3 saved-input-mode))
(setq encoded-kbd-coding 'big5))
((eq (coding-system-type coding) 'ccl)
(set-input-mode
(nth 0 saved-input-mode) (nth 1 saved-input-mode)
'use-8th-bit (nth 3 saved-input-mode))
'use-8th-bit (nth 3 saved-input-mode))
(setq encoded-kbd-coding 'ccl))
(t