From: yamaoka <yamaoka>
Date: Thu, 29 Jul 1999 02:59:48 +0000 (+0000)
Subject: (TopLevel): Use `mapcar' instead of `dolist' for defining obsolete variables
X-Git-Tag: mu-cite-8_0~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=664347dd0140a6c1b4f0351ec7c6f7727a0f12e4;p=elisp%2Fmu-cite.git

(TopLevel): Use `mapcar' instead of `dolist' for defining obsolete variables
and functions.
---

diff --git a/mu-cite.el b/mu-cite.el
index 6c2e2e5..142a925 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -86,13 +86,17 @@
     (mu-cite/top-format			mu-cite-top-format)))
 
 (static-if (featurep 'xemacs)
-    (dolist (def mu-cite-obsolete-variable-alist)
-      (apply (function define-obsolete-variable-alias) def)))
-
-(dolist (def '((mu-cite/cite-original	mu-cite-original)
-	       (mu-cite/get-field-value	mu-cite-get-field-value)
-	       (mu-cite/get-value	mu-cite-get-value)))
-  (apply (function define-obsolete-function-alias) def))
+    (mapcar
+     (function (lambda (elem)
+		 (apply (function define-obsolete-variable-alias) elem)))
+     mu-cite-obsolete-variable-alist))
+
+(mapcar
+ (function (lambda (elem)
+	     (apply (function define-obsolete-function-alias) elem)))
+ '((mu-cite/cite-original	mu-cite-original)
+   (mu-cite/get-field-value	mu-cite-get-field-value)
+   (mu-cite/get-value		mu-cite-get-value)))
 
 
 ;;; @ set up