1999-07-22  Hirokazu FUKUI  <hfukui@sannet.ne.jp>

	* egg.el (zenkaku-region): fix: zenkaku-region don't work.
	(*hankaku-alist*): fix: hankaku-region don't work.

--- egg.el.199907140102	Thu Jul 22 19:51:40 1999
+++ egg.el	Thu Jul 22 19:48:29 1999
@@ -817,42 +817,6 @@
     (forward-word arg)
     (hankaku-region start (point))))
 
-(defvar *hankaku-alist*
-  '(( 161 . ?\  ) 
-    ( 170 . ?\! )
-    ( 201 . ?\" )
-    ( 244 . ?\# )
-    ( 240 . ?\$ )
-    ( 243 . ?\% )
-    ( 245 . ?\& )
-    ( 199 . ?\' )
-    ( 202 . ?\( )
-    ( 203 . ?\) )
-    ( 246 . ?\* )
-    ( 220 . ?\+ )
-    ( 164 . ?\, )
-    ( 221 . ?\- )
-    ( 165 . ?\. )
-    ( 191 . ?\/ )
-    ( 167 . ?\: )
-    ( 168 . ?\; )
-    ( 227 . ?\< )
-    ( 225 . ?\= )
-    ( 228 . ?\> )
-    ( 169 . ?\? )
-    ( 247 . ?\@ )
-    ( 206 . ?\[ )
-    ( 239 . ?\\ )
-    ( 207 . ?\] )
-    ( 176 . ?^ )
-    ( 178 . ?\_ )
-    ( 208 . ?\{ )
-    ( 195 . ?\| )
-    ( 209 . ?\} )
-    ( 177 . ?\~ )
-    ( 198 . ?` )			; 92.6.26 by M.Shikida
-    ))
-
 ;;;
 ;;; 全角変換
 ;;;
@@ -869,7 +833,7 @@
 	      (delete-char -1)
 	      (let ((zen (cdr (assq ch *zenkaku-alist*))))
 		(if zen (insert zen)
-		  (insert (make-char (find-charset 'japanese-jisx0208) 38
+		  (insert (make-char (find-charset 'japanese-jisx0208) 35
 				     (char-to-int ch)))))))))))
 
 (defun zenkaku-paragraph ()
@@ -930,6 +894,12 @@
     (?} . "｝")
     (?~ . "￣")
     (?` . "‘")))			; 92.6.26 by M.Shikida
+
+(defvar *hankaku-alist*
+  (mapcar (function (lambda (x)
+		      (cons (nth 2 (split-char (string-to-char (cdr x))))
+			    (car x))))
+	  *zenkaku-alist*))
 
 ;;;
 ;;; ローマ字かな変換