[Mew-dist 11428] Re: list modification functions

[Kazu Yamamoto ( 山本和彦 )]

From: Ninomiya Hideyuki <nin at example.com>
Subject: [Mew-dist 11420] Re: list modification functions

> 有った方が良いに1票

会議中に書いたマクロです。あまり試していませんが、きっとあっています。

(defmacro mew-remove (variable key)
  (` (let* ((crn (, variable)) prv)
       (if (equal (nth 0 (car crn)) (, key))
	   (setq (, variable) (cdr crn))
	 (setq prv crn)
	 (setq crn (cdr crn))
	 (catch 'loop
	   (while crn
	     (if (equal (nth 0 (car crn)) (, key))
		 (throw 'loop (setcdr prv (cdr crn))))
	     (setq prv crn)
	     (setq crn (cdr crn))))))))

mew-delete と紛らわしいので、他のマクロ同様、動詞＋前置詞or副詞にした
いです。ぐっとくる名前を募集しています。

--かず