- 97 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/09/14 17:05]
- >>96
こんなんでどう?
(defface eelll '((t)) "")
(setq tc-image-button
'((" " " " " ")
(" " " X " " ")
("XXX" "XXX" "XXX")
("XXX" "X X" "XXX")
("XX " "X X" " XX")))
(setq eelll-stroke-to-string-function
(lambda (stroke)
(concat (tc-image-stroke-to-string stroke)
(propertize " " 'display `(space :width ,(/ 5 7.0))))))
