From ffa65648b4ad4df9cd28283e91292df9793211dc Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 3 Nov 2004 06:06:51 +0000 Subject: [PATCH] (conv-u-convert-char-fullwidth): Add `->fullwidth' for abstract character; add `<-halfwidth' for *halfwidth* variant; fix problem about `<-fullwidth'. --- conv-util.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4