[mew-dist 26510] char-equal

[Hideyuki SHIRAI ( 白井秀行 )]

# ふと気付いたのですが。。。

char-equal の結果は、以下の様に case-fold-search に左右されます。

(let ((case-fold-search t))
  (char-equal ?x ?X))
=> t
(let ((case-fold-search nil))
  (char-equal ?x ?X))
=> nil

Mew でもいろいろなところで使っていますが、mew-mark.el にある

(char-equal mark mew-mark-xxxx)

という個所は、mark を変えているとはまりそうなので、eq に変えた方
が良いと思われます。

# (char-equal c ?\n) なんていうのは大丈夫でしょうけど。。。

-- 
白井秀行 (mailto:shirai at example.com)