From: morioka <morioka>
Date: Mon, 15 Jan 1996 20:28:32 +0000 (+0000)
Subject: (mu-register/save-to-file): new implementation
X-Git-Tag: XEmacs-20_3-b27-viet~130
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=36f4e08ee2f7859f9325e0c0b02af416e9ddbc72;p=elisp%2Fmu-cite.git

(mu-register/save-to-file): new implementation
---

diff --git a/mu-register.el b/mu-register.el
index 25a10a6..dd053bc 100644
--- a/mu-register.el
+++ b/mu-register.el
@@ -7,7 +7,7 @@
 ;;;         modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/12/27 by MINOURA Makoto <minoura@leo.bekkoame.or.jp>
 ;;; Version:
-;;;	$Id: mu-register.el,v 1.5 1996-01-15 20:04:52 morioka Exp $
+;;;	$Id: mu-register.el,v 1.6 1996-01-15 20:28:32 morioka Exp $
 ;;;
 ;;; This file is part of tl (Tiny Library).
 ;;;
@@ -46,6 +46,10 @@
 
 ;;; Code:
 
+(require 'mu-cite)
+(require 'pp)
+
+
 ;;; @ variables
 ;;;
 
@@ -125,9 +129,11 @@
       (erase-buffer)
       (insert ";; generated automatically by mu-register.\n")
       (insert (format "(setq %s
- '" mu-register/registration-symbol))
-      (insert (prin1-to-string mu-register/citation-name-alist))
-      (insert "\n)\n")
+ '(" mu-register/registration-symbol))
+      (insert (mapconcat
+	       (function prin1-to-string)
+	       mu-register/citation-name-alist "\n   "))
+      (insert "\n   ))\n")
       (save-buffer))
     (kill-buffer buffer)))
 
@@ -135,7 +141,6 @@
 ;;; @ Installation
 ;;;
 
-(require 'mu-cite)
 (set-alist 'mu-cite/default-methods-alist
 	   'registered 
 	   (function mu-register/citation-name))