レス数が1000を超えています。残念ながら全部は表示しません。

Navi2ch for Emacs (part 7)

329 ：名無しさん＠お腹いっぱい。 ：02/10/03 23:19

>>326
string-widthにdefadviceするのがひどいんじゃなくて
string-widthにひどいdefadviceをしている、ということです。

GNU Emacsでは
(setq buffer-display-table (make-display-table))
(aset buffer-display-table ?あ (vector ?い))
すると、
(string-width "あ") => 1 (なんで？)
となってしまうので、
(defadvice string-width (around display-table-hack activate)
(let ((buffer-display-table nil))
ad-do-it)))
としているのですが、

(setq buffer-display-table (make-display-table))
(aset buffer-display-table ?a (vector ?a ?b))
(string-width "a") => 2 (これは正しい)

ということもあるので、上のdefadviceは「ひどい」のです。

read.cgi ver5.26+ (01/10/21-)