diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-09 06:56:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-09 06:56:04 +0000 |
| commit | c4ede6a24099d741088c99d16a3305b326f12b09 (patch) | |
| tree | 01d5a7f6c4aaebba3983a7f776d99acf7e2b700f | |
| parent | 2167d18d4048e71cfe5baa27f64c5015eeb77294 (diff) | |
| download | emacs-c4ede6a24099d741088c99d16a3305b326f12b09.tar.gz | |
(encoded-kbd-mode): Call coding-system-XXX instead of coding-vector-XXX.
| -rw-r--r-- | lisp/international/encoded-kb.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 1da1f37dd61..afc3ee353e6 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el @@ -237,26 +237,26 @@ set by the command `encoded-kbd-set-coding-system'" (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 @@ set by the command `encoded-kbd-set-coding-system'" (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)) |