From 79558c38ffacc5190220e2b1a1ceb0a9ac4aefbd Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 20 Dec 2000 10:00:09 +0000 Subject: [PATCH] Don't use `static-cond'. --- mime/mime-view.el | 31 ++++++++++++++++++------------- 1 file changed, 18 insertions(+), 13 deletions(-) diff --git a/mime/mime-view.el b/mime/mime-view.el index b7d21d6..d723679 100644 --- a/mime/mime-view.el +++ b/mime/mime-view.el @@ -380,13 +380,15 @@ mother-buffer." (insert "\n;;; " (file-name-nondirectory file) " ends here.\n") - (static-cond - ((boundp 'buffer-file-coding-system) - (setq buffer-file-coding-system - mime-situation-examples-file-coding-system)) - ((boundp 'file-coding-system) - (setq file-coding-system - mime-situation-examples-file-coding-system))) + (setq buffer-file-coding-system + mime-situation-examples-file-coding-system) + ;; (static-cond + ;; ((boundp 'buffer-file-coding-system) + ;; (setq buffer-file-coding-system + ;; mime-situation-examples-file-coding-system)) + ;; ((boundp 'file-coding-system) + ;; (setq file-coding-system + ;; mime-situation-examples-file-coding-system))) (setq buffer-file-name file) (save-buffer))))) @@ -1791,12 +1793,15 @@ It calls function registered in variable (with-temp-buffer (insert-file-contents file) (setq mime-situation-examples-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))) + (and (boundp 'buffer-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)) + ) (eval-buffer) ;; format check (condition-case nil -- 1.7.10.4