From: morioka <morioka>
Date: Tue, 26 Jan 1999 16:17:45 +0000 (+0000)
Subject: (mime-reduce-acting-situation-examples): fixed.
X-Git-Tag: semi-1_13-199901261900~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9614d16faf667c61367a777d209fbe6fa6fab321;p=elisp%2Fsemi.git

(mime-reduce-acting-situation-examples): fixed.
---

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))
       )))