2 |
|
|
3 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
|
;; Copyright (C) 2002 Free Software Foundation, Inc. |
6 |
|
|
7 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
8 |
|
|
308 |
(let ((coding (keyboard-coding-system))) |
(let ((coding (keyboard-coding-system))) |
309 |
(setq saved-input-mode (current-input-mode)) |
(setq saved-input-mode (current-input-mode)) |
310 |
(cond ((null coding) |
(cond ((null coding) |
311 |
(setq encoded-kbd-mode nil) |
(setq encoded-kbd-mode nil) |
312 |
(error "No coding system for keyboard input is set")) |
(error "No coding system for keyboard input is set")) |
313 |
|
|
314 |
((eq (coding-system-type coding) 'sjis) |
((eq (coding-system-type coding) 'sjis) |
315 |
(set-input-mode |
(set-input-mode |
316 |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
317 |
'use-8th-bit (nth 3 saved-input-mode)) |
'use-8th-bit (nth 3 saved-input-mode)) |
318 |
(setq encoded-kbd-coding 'sjis)) |
(setq encoded-kbd-coding 'sjis)) |
319 |
|
|
320 |
((eq (coding-system-type coding) 'iso-2022) |
((eq (coding-system-type coding) 'iso-2022) |
322 |
(setq encoded-kbd-coding 'iso2022-7) |
(setq encoded-kbd-coding 'iso2022-7) |
323 |
(set-input-mode |
(set-input-mode |
324 |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
325 |
'use-8th-bit (nth 3 saved-input-mode)) |
'use-8th-bit (nth 3 saved-input-mode)) |
326 |
(setq encoded-kbd-coding 'iso2022-8)) |
(setq encoded-kbd-coding 'iso2022-8)) |
327 |
(setq encoded-kbd-iso2022-designations |
(setq encoded-kbd-iso2022-designations |
328 |
(coding-system-get coding :designation)) |
(coding-system-get coding :designation)) |
333 |
((eq (coding-system-type coding) 'big5) |
((eq (coding-system-type coding) 'big5) |
334 |
(set-input-mode |
(set-input-mode |
335 |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
336 |
'use-8th-bit (nth 3 saved-input-mode)) |
'use-8th-bit (nth 3 saved-input-mode)) |
337 |
(setq encoded-kbd-coding 'big5)) |
(setq encoded-kbd-coding 'big5)) |
338 |
|
|
339 |
((eq (coding-system-type coding) 'ccl) |
((eq (coding-system-type coding) 'ccl) |
340 |
(set-input-mode |
(set-input-mode |
341 |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
(nth 0 saved-input-mode) (nth 1 saved-input-mode) |
342 |
'use-8th-bit (nth 3 saved-input-mode)) |
'use-8th-bit (nth 3 saved-input-mode)) |
343 |
(setq encoded-kbd-coding 'ccl)) |
(setq encoded-kbd-coding 'ccl)) |
344 |
|
|
345 |
(t |
(t |