X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=conv-util.el;h=b1b75d05e1f85709dd5456b403d2993fc11d95fb;hb=0b80009075cff7c8c0796668f7b7033b6354b265;hp=79fb1f1706ccca08eeb6e82a6a7bb507a9cf7c2e;hpb=a50f2623ab9adb3e6d865abcad57859960c18d15;p=chise%2Ftomoyo-tools.git

diff --git a/conv-util.el b/conv-util.el
index 79fb1f1..b1b75d0 100644
--- a/conv-util.el
+++ b/conv-util.el
@@ -87,6 +87,7 @@
 		((eq (car cell) '->lowercase))
 		((eq (car cell) '->uppercase))
 		((eq (car cell) '->titlecase))
+		((eq (car cell) '->fullwidth))
 		((eq (car cell) '=ucs)
 		 (setq ucs (cdr cell))
 		 (setq ret
@@ -101,7 +102,9 @@
 		(t
 		 (remove-char-attribute c (car cell))
 		 (setq ret (cons cell ret)))))
-	(setq ufs ret)
+	(setq ufs
+	      (cons (list '<-halfwidth c)
+		    ret))
 	(put-char-attribute c '->denotational
 			    (cons (define-char ufs) v))
 	(dolist (vc v)
@@ -110,7 +113,9 @@
 	  (if (eq ucs (get-char-attribute vc '=>ucs))
 	      (remove-char-attribute vc '=>ucs))
 	  (if (setq ret (get-char-attribute vc '<-fullwidth))
-	      (put-char-attribute vc '<-fullwidth (delq c ret)))
+	      (put-char-attribute vc '<-fullwidth
+				  (list c) ; (delq c ret)
+				  ))
 	  (if (and name
 		   (string= (concat "fullwidth " (downcase name))
 			    (get-char-attribute vc 'name)))