some XEmacs functions

[Shuhei KOBAYASHI]

1 年以上前の話ですが...

>>>>> In <m2r9e61csx.fsf ＠ kiss.kake.info.waseda.ac.jp>,
>>>>> Daiki Ueno <ueno ＠ kiss.kake.info.waseda.ac.jp> wrote:
> > > 最近、いくつか APEL に欲しい関数があるのですが、
> > > 入れてしまっても構わないでしょうか？
> > まあ、マズければ直せばいいでしょうし、
> > commit していただいてもよいのではないでしょうか。
> いくつか邪悪なものを commit しました。
> 
> XEmacs 19.13 and later:
> remassq, remassoc, remrassoc

これらの定義は間違っているみたいですね.

;; Emacs 20.7 + APEL
(remassq 'foo '((FOO . "FOO")(foo . "foo")(foo . "FOO")(foo . "foo")))
 => ((FOO . "FOO") (foo . "FOO") (foo . "foo"))

;; XEmacs 19.16
(remassq 'foo '((FOO . "FOO")(foo . "foo")(foo . "FOO")(foo . "foo"))) 
 => ((FOO . "FOO")) 

-- 
Shuhei KOBAYASHI