From 9614d16faf667c61367a777d209fbe6fa6fab321 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 26 Jan 1999 16:17:45 +0000 Subject: [PATCH] (mime-reduce-acting-situation-examples): fixed. --- mime-play.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/mime-play.el b/mime-play.el index acf8e94..29dd266 100644 --- a/mime-play.el +++ b/mime-play.el @@ -130,16 +130,16 @@ (setq i d-i d-i d-j d-j i)) - (setq j-r (nthcdr (1- d-j) mime-acting-situation-example-list)) - (setcdr j-r (cddr j-r)) + (setq jr (nthcdr (1- d-j) mime-acting-situation-example-list)) + (setcdr jr (cddr jr)) (if (= d-i 0) (setq mime-acting-situation-example-list (cdr mime-acting-situation-example-list)) - (setq i-r (nthcdr (1- d-i) mime-acting-situation-example-list)) - (setcdr i-r (cddr i-r)) + (setq ir (nthcdr (1- d-i) mime-acting-situation-example-list)) + (setcdr ir (cddr ir)) ) - (if (setq i-r (assoc (car dest) mime-acting-situation-example-list)) - (setcdr i-r (+ (cdr i-r)(cdr dest))) + (if (setq ir (assoc (car dest) mime-acting-situation-example-list)) + (setcdr ir (+ (cdr ir)(cdr dest))) (setq mime-acting-situation-example-list (cons dest mime-acting-situation-example-list)) ))) -- 1.7.10.4