Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 88488:a64bb690ca28
Log for previous change:
(encoded-kbd-self-insert-ccl): Fix
getting decoder.
(encoded-kbd-mode): Fix code for coding system type and
designations.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 13 May 2002 18:27:28 +0000 |
parents | 78fb6b11f118 |
children | 410ca4f1df02 |
comparison
equal
deleted
inserted
replaced
88487:78fb6b11f118 | 88488:a64bb690ca28 |
---|---|
1 ;;; encoded-kb.el --- handler to input multibyte characters encoded somehow | 1 ;;; encoded-kb.el --- handler to input multibyte characters encoded somehow |
2 | 2 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 ;; Licensed to the Free Software Foundation. | 4 ;; Licensed to the Free Software Foundation. |
5 ;; Copyright (C) 2002 Free Software Foundation, Inc. | |
5 | 6 |
6 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
7 | 8 |
8 ;; GNU Emacs is free software; you can redistribute it and/or modify | 9 ;; GNU Emacs is free software; you can redistribute it and/or modify |
9 ;; it under the terms of the GNU General Public License as published by | 10 ;; it under the terms of the GNU General Public License as published by |
305 (if saved-input-mode (apply 'set-input-mode saved-input-mode)) | 306 (if saved-input-mode (apply 'set-input-mode saved-input-mode)) |
306 (if encoded-kbd-mode | 307 (if encoded-kbd-mode |
307 (let ((coding (keyboard-coding-system))) | 308 (let ((coding (keyboard-coding-system))) |
308 (setq saved-input-mode (current-input-mode)) | 309 (setq saved-input-mode (current-input-mode)) |
309 (cond ((null coding) | 310 (cond ((null coding) |
310 (setq encoded-kbd-mode nil) | 311 (setq encoded-kbd-mode nil) |
311 (error "No coding system for keyboard input is set")) | 312 (error "No coding system for keyboard input is set")) |
312 | 313 |
313 ((eq (coding-system-type coding) 'sjis) | 314 ((eq (coding-system-type coding) 'sjis) |
314 (set-input-mode | 315 (set-input-mode |
315 (nth 0 saved-input-mode) (nth 1 saved-input-mode) | 316 (nth 0 saved-input-mode) (nth 1 saved-input-mode) |
316 'use-8th-bit (nth 3 saved-input-mode)) | 317 'use-8th-bit (nth 3 saved-input-mode)) |
317 (setq encoded-kbd-coding 'sjis)) | 318 (setq encoded-kbd-coding 'sjis)) |
318 | 319 |
319 ((eq (coding-system-type coding) 'iso-2022) | 320 ((eq (coding-system-type coding) 'iso-2022) |
320 (if (memq '7-bit (coding-system-get coding :flags)) | 321 (if (memq '7-bit (coding-system-get coding :flags)) |
321 (setq encoded-kbd-coding 'iso2022-7) | 322 (setq encoded-kbd-coding 'iso2022-7) |
322 (set-input-mode | 323 (set-input-mode |
323 (nth 0 saved-input-mode) (nth 1 saved-input-mode) | 324 (nth 0 saved-input-mode) (nth 1 saved-input-mode) |
324 'use-8th-bit (nth 3 saved-input-mode)) | 325 'use-8th-bit (nth 3 saved-input-mode)) |
325 (setq encoded-kbd-coding 'iso2022-8)) | 326 (setq encoded-kbd-coding 'iso2022-8)) |
326 (setq encoded-kbd-iso2022-designations | 327 (setq encoded-kbd-iso2022-designations |
327 (coding-system-get coding :designation)) | 328 (coding-system-get coding :designation)) |
328 (setq encoded-kbd-iso2022-invocations (make-vector 3 nil)) | 329 (setq encoded-kbd-iso2022-invocations (make-vector 3 nil)) |
329 (aset encoded-kbd-iso2022-invocations 0 0) | 330 (aset encoded-kbd-iso2022-invocations 0 0) |
330 (aset encoded-kbd-iso2022-invocations 1 1)) | 331 (aset encoded-kbd-iso2022-invocations 1 1)) |
331 | 332 |
332 ((eq (coding-system-type coding) 'big5) | 333 ((eq (coding-system-type coding) 'big5) |
333 (set-input-mode | 334 (set-input-mode |
334 (nth 0 saved-input-mode) (nth 1 saved-input-mode) | 335 (nth 0 saved-input-mode) (nth 1 saved-input-mode) |
335 'use-8th-bit (nth 3 saved-input-mode)) | 336 'use-8th-bit (nth 3 saved-input-mode)) |
336 (setq encoded-kbd-coding 'big5)) | 337 (setq encoded-kbd-coding 'big5)) |
337 | 338 |
338 ((eq (coding-system-type coding) 'ccl) | 339 ((eq (coding-system-type coding) 'ccl) |
339 (set-input-mode | 340 (set-input-mode |
340 (nth 0 saved-input-mode) (nth 1 saved-input-mode) | 341 (nth 0 saved-input-mode) (nth 1 saved-input-mode) |
341 'use-8th-bit (nth 3 saved-input-mode)) | 342 'use-8th-bit (nth 3 saved-input-mode)) |
342 (setq encoded-kbd-coding 'ccl)) | 343 (setq encoded-kbd-coding 'ccl)) |
343 | 344 |
344 (t | 345 (t |
345 (setq encoded-kbd-mode nil) | 346 (setq encoded-kbd-mode nil) |
346 (error "Coding-system `%s' is not supported in Encoded-kbd mode" | 347 (error "Coding-system `%s' is not supported in Encoded-kbd mode" |