From b8af2e050e225da0468fd7f549a3b85100bfe7ee Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 28 Dec 2000 05:48:17 +0000 Subject: [PATCH] (mime-view-read-situation-examples-file): Don't try to read situation-examples-file is it is nil. (mime-situation-examples-file): Avoid to read situation-examples-file at compile time. --- mime-view.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/mime-view.el b/mime-view.el index a5f2ba6..15032e0 100644 --- a/mime-view.el +++ b/mime-view.el @@ -372,7 +372,8 @@ mother-buffer." (defun mime-view-read-situation-examples-file (&optional file) (or file (setq file mime-situation-examples-file)) - (if (file-readable-p file) + (if (and file + (file-readable-p file)) (with-temp-buffer (insert-file-contents file) (setq mime-situation-examples-file-coding-system @@ -1856,6 +1857,11 @@ It calls function registered in variable (provide 'mime-view) +(eval-when-compile + (setq mime-situation-examples-file nil) + ;; to avoid to read situation-examples-file at compile time. + ) + (mime-view-read-situation-examples-file) ;;; mime-view.el ends here -- 1.7.10.4