From: yoichi <yoichi>
Date: Sat, 8 Feb 2003 06:37:44 +0000 (+0000)
Subject: * mime-view.el (mime-save-situation-examples): Bind print-length
X-Git-Tag: semi-1_14_6~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62756c430ded8a1cd9abad3414534a81c127e19d;p=elisp%2Fsemi.git

* mime-view.el (mime-save-situation-examples): Bind print-length
and print-level.
---

diff --git a/ChangeLog b/ChangeLog
index eb3143c..d0f20c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* mime-view.el (mime-save-situation-examples): Bind print-length
+	and print-level.
+
 2003-01-10  NAKAJI Hiroyuki  <nakaji@tutrp.tut.ac.jp>
 
 	* README.ja: new file, Japanese translation of README.en.
diff --git a/mime-view.el b/mime-view.el
index bdf421d..add702e 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -421,7 +421,8 @@ mother-buffer."
 (defun mime-save-situation-examples ()
   (if (or mime-preview-situation-example-list
 	  mime-acting-situation-example-list)
-      (let ((file mime-situation-examples-file))
+      (let ((file mime-situation-examples-file)
+	    print-length print-level)
 	(with-temp-buffer
 	  (insert ";;; " (file-name-nondirectory file) "\n")
 	  (insert "\n;; This file is generated automatically by "
@@ -438,7 +439,7 @@ mother-buffer."
 	  (insert "\n;;; "
 		  (file-name-nondirectory file)
 		  " ends here.\n")
-          (static-cond
+	  (static-cond
 	   ((boundp 'buffer-file-coding-system)
 	    (setq buffer-file-coding-system
 		  mime-situation-examples-file-coding-system))
@@ -446,7 +447,7 @@ mother-buffer."
 	    (setq file-coding-system
 		  mime-situation-examples-file-coding-system)))
 	  ;; (setq buffer-file-coding-system
-          ;;       mime-situation-examples-file-coding-system)
+	  ;;       mime-situation-examples-file-coding-system)
 	  (setq buffer-file-name file)
 	  (save-buffer)))))