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