From: yamaoka <yamaoka>
Date: Thu, 15 Jul 1999 03:05:38 +0000 (+0000)
Subject: (mu-cite/eval-format): Add `save-excursion'.
X-Git-Tag: mu-cite-8_0~60
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7b03a646a9ea161aa0f4351fa7b1288d3e13d44e;p=elisp%2Fmu-cite.git

(mu-cite/eval-format): Add `save-excursion'.
---

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