From: tomo <tomo>
Date: Wed, 3 Nov 2004 06:06:51 +0000 (+0000)
Subject: (conv-u-convert-char-fullwidth): Add `->fullwidth' for abstract
X-Git-Tag: chise-base-0_23~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ffa65648b4ad4df9cd28283e91292df9793211dc;p=chise%2Ftomoyo-tools.git

(conv-u-convert-char-fullwidth): Add `->fullwidth' for abstract
character; add `<-halfwidth' for *halfwidth* variant; fix problem
about `<-fullwidth'.
---

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)))