From f3d74fb4e89670d4f0805ffa8ea03dd39a5772df Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 22 Jul 1999 10:47:42 +0000 Subject: [PATCH] (mu-cite-load-registration-file): Check for the existence of `buffer-file-coding-system' or `file-coding-system'. --- mu-register.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4