Mercurial > emacs

changeset 18697:2185491b8d24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(encoded-kbd-mode): Call coding-system-XXX instead of coding-vector-XXX.
author Kenichi Handa <handa@m17n.org>
date Wed, 09 Jul 1997 06:56:04 +0000
parents 1caf720e4f55
children 52271ad26a1d
files lisp/international/encoded-kb.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/encoded-kb.el	Wed Jul 09 06:56:04 1997 +0000
+++ b/lisp/international/encoded-kb.el	Wed Jul 09 06:56:04 1997 +0000
@@ -237,26 +237,26 @@
 	(if (null arg) (null encoded-kbd-mode)
 	  (> (prefix-numeric-value arg) 0)))
   (if encoded-kbd-mode
-      (let* ((coding (coding-system-vector (keyboard-coding-system)))
-	     (input-mode (current-input-mode)))
+      (let ((coding (keyboard-coding-system))
+	    (input-mode (current-input-mode)))
 	(cond ((null coding)
 	       (setq encoded-kbd-mode nil) 
 	       (error "No coding-system for terminal keyboard is set"))
 
-	      ((= (coding-vector-type coding) 1) ; SJIS
+	      ((= (coding-system-type coding) 1) ; SJIS
 	       (set-input-mode (nth 0 input-mode) (nth 1 input-mode)
 			       'use-8th-bit (nth 3 input-mode))	
 	       (setq encoded-kbd-coding 'sjis))
 
-	      ((= (coding-vector-type coding) 2) ; ISO2022
-	       (if (aref (coding-vector-flags coding) 7) ; 7-bit only
+	      ((= (coding-system-type coding) 2) ; ISO2022
+	       (if (aref (coding-system-flags coding) 7) ; 7-bit only
 		   (setq encoded-kbd-coding 'iso2022-7)
 		 (set-input-mode (nth 0 input-mode) (nth 1 input-mode)
 				 'use-8th-bit (nth 3 input-mode))	
 		 (setq encoded-kbd-coding 'iso2022-8))
 	       (make-variable-buffer-local 'encoded-kbd-iso2022-designations)
 	       (setq encoded-kbd-iso2022-designations (make-vector 4 nil))
-	       (let ((flags (coding-vector-flags coding))
+	       (let ((flags (coding-system-flags coding))
 		     (i 0))
 		 (while (< i 4)
 		   (if (charsetp (aref flags i))
@@ -268,7 +268,7 @@
 	       (aset encoded-kbd-iso2022-invocations 0 0)
 	       (aset encoded-kbd-iso2022-invocations 1 1))
 
-	      ((= (coding-vector-type coding) 3) ; BIG5
+	      ((= (coding-system-type coding) 3) ; BIG5
 	       (set-input-mode (nth 0 input-mode) (nth 1 input-mode)
 			       'use-8th-bit (nth 3 input-mode))	
 	       (setq encoded-kbd-coding 'big5))