Mercurial > emacs

changeset 88487:78fb6b11f118

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Dave Love <fx@gnu.org>
date Mon, 13 May 2002 18:24:52 +0000
parents d4613d8948b7
children a64bb690ca28
files lisp/ChangeLog lisp/international/encoded-kb.el
diffstat 2 files changed, 12 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon May 13 17:56:01 2002 +0000
+++ b/lisp/ChangeLog	Mon May 13 18:24:52 2002 +0000
@@ -1,3 +1,7 @@
+2002-05-13  Dave Love  <fx@gnu.org>
+
+	* international/mule-conf.el: Speling fixes.
+
 2002-05-13  Kenichi Handa  <handa@etl.go.jp>
 
 	* international/fontset.el (fontset-plain-name): Handle the case
--- a/lisp/international/encoded-kb.el	Mon May 13 17:56:01 2002 +0000
+++ b/lisp/international/encoded-kb.el	Mon May 13 18:24:52 2002 +0000
@@ -223,7 +223,7 @@
 (defun encoded-kbd-self-insert-ccl ()
   (interactive)
   (let ((str (char-to-string last-command-char))
-	(ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
+	(ccl (coding-system-get (keyboard-coding-system) :ccl-decoder))
 	(vec [nil nil nil nil nil nil nil nil nil])
 	result)
     (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
@@ -310,41 +310,32 @@
 	       (setq encoded-kbd-mode nil) 
 	       (error "No coding system for keyboard input is set"))
 
-	      ((= (coding-system-type coding) 1) ; SJIS
+	      ((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))	
 	       (setq encoded-kbd-coding 'sjis))
 
-	      ((= (coding-system-type coding) 2) ; ISO2022
-	       (if (aref (coding-system-flags coding) 7) ; 7-bit only
+	      ((eq (coding-system-type coding) 'iso-2022)
+	       (if (memq '7-bit (coding-system-get coding :flags))
 		   (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))	
 		 (setq encoded-kbd-coding 'iso2022-8))
-	       (setq encoded-kbd-iso2022-designations (make-vector 4 nil))
-	       (let ((flags (coding-system-flags coding))
-		     (i 0))
-		 (while (< i 4)
-		   (if (charsetp (aref flags i))
-		       (aset encoded-kbd-iso2022-designations i
-			     (aref flags i))
-		     (if (charsetp (car-safe (aref flags i)))
-		       (aset encoded-kbd-iso2022-designations i
-			     (car (aref flags i)))))
-		   (setq i (1+ i))))
+	       (setq encoded-kbd-iso2022-designations
+		     (coding-system-get coding :designation))
 	       (setq encoded-kbd-iso2022-invocations (make-vector 3 nil))
 	       (aset encoded-kbd-iso2022-invocations 0 0)
 	       (aset encoded-kbd-iso2022-invocations 1 1))
 
-	      ((= (coding-system-type coding) 3) ; BIG5
+	      ((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))	
 	       (setq encoded-kbd-coding 'big5))
 
-	      ((= (coding-system-type coding) 4) ; CCL based coding
+	      ((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))