From 664347dd0140a6c1b4f0351ec7c6f7727a0f12e4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 29 Jul 1999 02:59:48 +0000 Subject: [PATCH] (TopLevel): Use `mapcar' instead of `dolist' for defining obsolete variables and functions. --- mu-cite.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) 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 -- 1.7.10.4