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