(mu-cite/eval-format): Add `save-excursion'.
authoryamaoka <yamaoka>
Thu, 15 Jul 1999 03:05:38 +0000 (03:05 +0000)
committeryamaoka <yamaoka>
Thu, 15 Jul 1999 03:05:38 +0000 (03:05 +0000)
mu-cite.el

index 34b3d3d..bdc9d41 100644 (file)
@@ -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