From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lute Kamstra Newsgroups: gmane.emacs.devel Subject: Adding rassq-delete-all to lisp/subr.el. Date: Tue, 19 Apr 2005 15:28:53 +0200 Message-ID: <87k6my7v56.fsf@xs4all.nl> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1113917633 3202 80.91.229.2 (19 Apr 2005 13:33:53 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 19 Apr 2005 13:33:53 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Apr 19 15:33:51 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DNsqT-0001Yl-K1 for ged-emacs-devel@m.gmane.org; Tue, 19 Apr 2005 15:32:53 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DNsun-0003Qs-8A for ged-emacs-devel@m.gmane.org; Tue, 19 Apr 2005 09:37:21 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DNsu1-0003IA-2K for emacs-devel@gnu.org; Tue, 19 Apr 2005 09:36:33 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DNstz-0003Gf-CZ for emacs-devel@gnu.org; Tue, 19 Apr 2005 09:36:32 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DNstz-0002yh-3r for emacs-devel@gnu.org; Tue, 19 Apr 2005 09:36:31 -0400 Original-Received: from [194.109.24.33] (helo=smtp-vbr13.xs4all.nl) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DNsoZ-0006tr-6Y for emacs-devel@gnu.org; Tue, 19 Apr 2005 09:30:55 -0400 Original-Received: from pijl (a80-127-67-124.adsl.xs4all.nl [80.127.67.124]) by smtp-vbr13.xs4all.nl (8.12.11/8.12.11) with ESMTP id j3JDSs6M076549 for ; Tue, 19 Apr 2005 15:28:54 +0200 (CEST) (envelope-from Lute.Kamstra@xs4all.nl) Original-Received: from lute by pijl with local (Exim 3.36 #1 (Debian)) id 1DNsmb-0006FQ-00 for ; Tue, 19 Apr 2005 15:28:53 +0200 Original-To: emacs-devel@gnu.org User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Original-Lines: 16 X-Virus-Scanned: by XS4ALL Virus Scanner X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:36104 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:36104 lisp/subr.el currently defines assq-delete-all. What about providing rassq-delete-all as well? Lute. (defun rassq-delete-all (value alist) "Delete from ALIST all elements whose cdr is `eq' to VALUE. Return the modified alist. Elements of ALIST that are not conses are ignored." (let ((tail alist)) (while tail (when (and (consp (car tail)) (eq (cadr tail) value)) (setq alist (delq (car tail) alist))) (setq tail (cdr tail))) alist))