From: morioka <morioka>
Date: Mon, 15 Jan 1996 20:04:52 +0000 (+0000)
Subject: (mu-register/registration-symbol): new variable: to specify symbol
X-Git-Tag: XEmacs-20_3-b27-viet~131
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=48386f571ef90af1c2c426bd2f51b72cf8cfee90;p=elisp%2Fmu-cite.git

(mu-register/registration-symbol): new variable: to specify symbol
name of citation-name database.

(mu-register/save-to-file): modified to use variable
`mu-register/registration-symbol'.
---

diff --git a/mu-register.el b/mu-register.el
index c2b116e..25a10a6 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.4 1996-01-15 19:32:00 morioka Exp $
+;;;	$Id: mu-register.el,v 1.5 1996-01-15 20:04:52 morioka Exp $
 ;;;
 ;;; This file is part of tl (Tiny Library).
 ;;;
@@ -53,9 +53,14 @@
   (expand-file-name "~/.mu-register")
   "*The name of the user environment file for mu-register.")
 
+(defvar mu-register/registration-symbol 'mu-register/citation-name-alist)
+
 (defvar mu-register/citation-name-alist nil)
 (load mu-register/registration-file t t t)
-
+(or (eq 'mu-register/citation-name-alist mu-register/registration-symbol)
+    (setq mu-register/citation-name-alist
+	  (symbol-value mu-register/registration-symbol))
+    )
 (defvar mu-register/minibuffer-history nil)
 
 
@@ -119,11 +124,10 @@
       (setq buffer-file-name filename)
       (erase-buffer)
       (insert ";; generated automatically by mu-register.\n")
-      (insert "(setq mu-register/citation-name-alist\n\
- (quote\n\
-  ")
+      (insert (format "(setq %s
+ '" mu-register/registration-symbol))
       (insert (prin1-to-string mu-register/citation-name-alist))
-      (insert "))\n")
+      (insert "\n)\n")
       (save-buffer))
     (kill-buffer buffer)))