From: Karl Fogel <kfogel@red-bean.com>
Date: Tue, 8 Jun 2004 00:36:04 +0000 (+0000)
Subject: * saveplace.el (save-place-alist-to-file): Bind `print-length'
X-Git-Tag: ttn-vms-21-2-B4~5878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f29a6c8cc0a8ef25998bd1432cd7091728c87a2;p=emacs.git

* saveplace.el (save-place-alist-to-file): Bind `print-length'
  and `print-level' to nil when writing out `save-place-alist'.
  Thanks to Kai Grossjohann <kai@emptydomain.de> for enlightenment.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8423246c1bc..feb0a4aedae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-07  Karl Fogel  <kfogel@red-bean.com>
+
+	* saveplace.el (save-place-alist-to-file): Bind `print-length'
+	and `print-level' to nil when writing out `save-place-alist'.  
+	Thanks to Kai Grossjohann <kai@emptydomain.de> for enlightenment.
+	
 2004-06-07  Juanma Barranquero  <lektu@terra.es>
 
 	* completion.el (completion-kill-region): Doc fix.
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 3e40f118a41..249bdfe00e3 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -207,7 +207,9 @@ may have changed\) back to `save-place-alist'."
       (delete-region (point-min) (point-max))
       (when save-place-forget-unreadable-files
 	(save-place-forget-unreadable-files))
-      (print save-place-alist (current-buffer))
+      (let ((print-length nil)
+            (print-level nil))
+        (print save-place-alist (current-buffer)))
       (let ((version-control
              (cond
               ((null save-place-version-control) nil)