changeset 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 9d7df41c61ec
files lisp/international/encoded-kb.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/encoded-kb.el	Mon May 13 18:24:52 2002 +0000
+++ b/lisp/international/encoded-kb.el	Mon May 13 18:27:28 2002 +0000
@@ -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 @@
       (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 @@
 		   (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 @@
 	      ((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