From: morioka <morioka>
Date: Wed, 21 Jul 1999 04:14:50 +0000 (+0000)
Subject: (mu-citation-name-alist): Deleted.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=20838c53a9983ee1e75a7d5d334cd1d46d5b83f3;p=elisp%2Fmu-cite.git

(mu-citation-name-alist): Deleted.
(mu-cite-load-registration-file): Initialize value of
`mu-registration-symbol' if it is not bound.
(mu-cite-save-registration-file): Use `(symbol-value
mu-registration-symbol)' instead of `mu-citation-name-alist'.
(mu-register-get-citation-name): Likewise.
(mu-register-add-citation-name): Use `(set-alist
mu-registration-symbol ...)'.
---

diff --git a/mu-register.el b/mu-register.el
index 7dad74f..6b1c0b7 100644
--- a/mu-register.el
+++ b/mu-register.el
@@ -58,8 +58,6 @@
 (defvar mu-registration-file-coding-system nil
   "Coding system used when writing a current registration file.")
 
-(defvar mu-citation-name-alist nil)
-
 (defvar mu-register-history nil)
 
 (eval-when-compile (require 'static))
@@ -91,7 +89,9 @@
 	(let ((exp (read (current-buffer))))
 	  (or (eq (car (cdr exp)) mu-registration-symbol)
 	      (setcar (cdr exp) mu-registration-symbol))
-	  (eval exp)))))
+	  (eval exp))))
+  (or (boundp mu-registration-symbol)
+      (set mu-registration-symbol nil)))
 
 (defun mu-cite-save-registration-file ()
   (with-temp-buffer
@@ -103,7 +103,7 @@
 	    "\n      '(")
     (insert (mapconcat
 	     (function prin1-to-string)
-	     mu-citation-name-alist "\n        "))
+	     (symbol-value mu-registration-symbol) "\n        "))
     (insert "\n        ))\n\n")
     (insert ";;; "
 	    (file-name-nondirectory mu-registration-file)
@@ -121,12 +121,11 @@
 
 ;; get citation-name from the database
 (defun mu-register-get-citation-name (from)
-  (cdr (assoc from mu-citation-name-alist)))
+  (cdr (assoc from (symbol-value mu-registration-symbol))))
 
 ;; register citation-name to the database
 (defun mu-register-add-citation-name (name from)
-  (setq mu-citation-name-alist
-	(put-alist from name mu-citation-name-alist))
+  (set-alist mu-registration-symbol from name)
   (mu-cite-save-registration-file))