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