* 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 8423246c1bc7594df64cf8854ec79e45a1f7ad40..feb0a4aedaec1067ffd26b1708f2bfabfb552b44 100644 (file)
--- 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 3e40f118a41b0d7cc27c7d2cb888fca148ef59a1..249bdfe00e31ad91815bd79dda43e8282979d2d6 100644 (file)
--- 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)