From 7b03a646a9ea161aa0f4351fa7b1288d3e13d44e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Jul 1999 03:05:38 +0000 Subject: [PATCH] (mu-cite/eval-format): Add `save-excursion'. --- mu-cite.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/mu-cite.el b/mu-cite.el index 34b3d3d..bdc9d41 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -353,13 +353,14 @@ Use this hook to add your own methods to `mu-cite/default-methods-alist'.") ret))) (defun mu-cite/eval-format (list) - (mapconcat (function - (lambda (elt) - (cond ((stringp elt) elt) - ((symbolp elt) (mu-cite/get-value elt)) - ))) - list "") - ) + (save-excursion + (mapconcat (function + (lambda (elt) + (cond ((stringp elt) elt) + ((symbolp elt) (mu-cite/get-value elt)) + ))) + list "") + )) ;;; @ main function -- 1.7.10.4