* 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.

2 files changed, 9 insertions, 1 deletions

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)