From 203c90150b8c7da7ecf23b433196773d4f3f7eae Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 14 Dec 2000 10:55:02 +0000 Subject: [PATCH] * alist.el (del-alist): Simplified. --- ChangeLog | 4 ++++ alist.el | 17 ++++------------- 2 files changed, 8 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index 32d9d27..c0e2f71 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-12-14 Daiki Ueno + + * alist.el (del-alist): Simplified. + 2000-12-14 Mikio Nakajima * pym.el (static-if): Put t on edebug spec instead of if. diff --git a/alist.el b/alist.el index 4b656de..485107e 100644 --- a/alist.el +++ b/alist.el @@ -40,19 +40,10 @@ return a new alist whose car is the new pair and cdr is ALIST." (defun del-alist (key alist) "Delete an element whose car equals KEY from ALIST. Return the modified ALIST." - (if (equal key (car (car alist))) - (cdr alist) - (let ((pr alist) - (r (cdr alist))) - (catch 'tag - (while (not (null r)) - (if (equal key (car (car r))) - (progn - (rplacd pr (cdr r)) - (throw 'tag alist))) - (setq pr r) - (setq r (cdr r))) - alist)))) + (let ((pair (assoc item alist))) + (if pair + (delq pair alist) + alist))) ;;;###autoload (defun set-alist (symbol key value) -- 1.7.10.4