From: yamaoka <yamaoka>
Date: Thu, 22 Jul 1999 10:47:42 +0000 (+0000)
Subject: (mu-cite-load-registration-file): Check for the existence of
X-Git-Tag: mu-cite-8_0~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f3d74fb4e89670d4f0805ffa8ea03dd39a5772df;p=elisp%2Fmu-cite.git

(mu-cite-load-registration-file): Check for the existence of
`buffer-file-coding-system' or `file-coding-system'.
---

diff --git a/mu-register.el b/mu-register.el
index b3a5023..5488dd3 100644
--- a/mu-register.el
+++ b/mu-register.el
@@ -87,9 +87,13 @@
 	     mu-registration-file)
 	  (insert-file-contents mu-registration-file))
 	(setq mu-registration-file-coding-system
-	      (static-if (<= emacs-major-version 19)
-		  file-coding-system
-		buffer-file-coding-system))
+	      (static-cond
+	       ((boundp 'buffer-file-coding-system)
+		(symbol-value 'buffer-file-coding-system))
+	       ((boundp 'file-coding-system)
+		(symbol-value 'file-coding-system))
+	       (t
+		nil)))
 	(let ((exp (read (current-buffer))))
 	  (or (eq (car (cdr exp)) mu-registration-symbol)
 	      (setcar (cdr exp) mu-registration-symbol))