((eq (car cell) '->lowercase))
((eq (car cell) '->uppercase))
((eq (car cell) '->titlecase))
((eq (car cell) '->lowercase))
((eq (car cell) '->uppercase))
((eq (car cell) '->titlecase))
(if (eq ucs (get-char-attribute vc '=>ucs))
(remove-char-attribute vc '=>ucs))
(if (setq ret (get-char-attribute vc '<-fullwidth))
(if (eq ucs (get-char-attribute vc '=>ucs))
(remove-char-attribute vc '=>ucs))
(if (setq ret (get-char-attribute vc '<-fullwidth))