From: yoichi <yoichi>
Date: Sat, 8 Feb 2003 07:16:07 +0000 (+0000)
Subject: Sync with semi-1_14
X-Git-Tag: emiko-1_14-epg-branchpoint~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3fa4424290b96b83d308b99d0e7c6166a0c96024;p=elisp%2Fsemi.git

Sync with semi-1_14
---

diff --git a/ChangeLog b/ChangeLog
index 70ece03..9a3c4c7 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.
+
 2002-11-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* mime-view.el (mime-preview-find-boundary-info): Change the name of
diff --git a/mime-view.el b/mime-view.el
index 97d3172..db34efd 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -402,7 +402,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 "
@@ -419,7 +420,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))
@@ -427,7 +428,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)))))