From fe7ec4c8dc71eeb0b69bdabc3bd4b2afaae2e515 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Fri, 28 Feb 1997 02:17:40 +0000 Subject: [PATCH] Function `put-alist' and `del-alist' were moved to alist.el. --- mime-play.el | 39 +-------------------------------------- 1 file changed, 1 insertion(+), 38 deletions(-) diff --git a/mime-play.el b/mime-play.el index 1e05d79..07b3619 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.5 1997-02-28 02:16:31 tmorioka Exp $ +;; Version: $Id: mime-play.el,v 0.6 1997-02-28 02:17:40 tmorioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -96,43 +96,6 @@ ;;; @ method selector ;;; -;;; @@ alist -;;; - -(defun put-alist (item value alist) - "Modify ALIST to set VALUE to ITEM. -If there is a pair whose car is ITEM, replace its cdr by VALUE. -If there is not such pair, create new pair (ITEM . VALUE) and -return new alist whose car is the new pair and cdr is ALIST. -\[tomo's ELIS like function]" - (let ((pair (assoc item alist))) - (if pair - (progn - (setcdr pair value) - alist) - (cons (cons item value) alist) - ))) - -(defun del-alist (item alist) - "If there is a pair whose key is ITEM, delete it from ALIST. -\[tomo's ELIS emulating function]" - (if (equal item (car (car alist))) - (cdr alist) - (let ((pr alist) - (r (cdr alist)) - ) - (catch 'tag - (while (not (null r)) - (if (equal item (car (car r))) - (progn - (rplacd pr (cdr r)) - (throw 'tag alist))) - (setq pr r) - (setq r (cdr r)) - ) - alist)))) - - ;;; @@ field ;;; -- 1.7.10.4