(bookmark-write-file): Bind print-length and

print-level to nil.  From Tom Capey <tomc@edina.co.uk>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e31f15b90d8fc3420a69273063478a729c3ed9d4..8b43798e84310f73ddd1b3ddf5d89caf9eb05dcb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-04  Gerd Moellmann  <gerd@gnu.org>
 
+       * bookmark.el (bookmark-write-file): Bind print-length and
+       print-level to nil.  From Tom Capey <tomc@edina.co.uk>.
+
        * obsolete/uncompress.el: Moved there from lisp/.
 
        * comint.el (comint-insert-clicked-input): Goto point-max before

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index be0406610cbe46ff9122ad9cb5c223b210d319c2..6ac3c0f9d9aa7fc789360a0dd0497058630cc786 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1347,21 +1347,22 @@ for a file, defaulting to the file defined by variable
       (set-buffer (let ((enable-local-variables nil))
                     (find-file-noselect file)))
       (goto-char (point-min))
-      (delete-region (point-min) (point-max))
-      (bookmark-insert-file-format-version-stamp)
-      (pp bookmark-alist (current-buffer))
-      (let ((version-control
-             (cond
-              ((null bookmark-version-control) nil)
-              ((eq 'never bookmark-version-control) 'never)
-              ((eq 'nospecial bookmark-version-control) version-control)
-              (t
-               t))))
-        (write-file file)
-        (kill-buffer (current-buffer))
-        (if (>= baud-rate 9600)
-            (message "Saving bookmarks to file %s...done" file))
-        ))))
+      (let ((print-length nil) 
+           (print-level nil))
+       (delete-region (point-min) (point-max))
+       (bookmark-insert-file-format-version-stamp)
+       (pp bookmark-alist (current-buffer))
+       (let ((version-control
+              (cond
+               ((null bookmark-version-control) nil)
+               ((eq 'never bookmark-version-control) 'never)
+               ((eq 'nospecial bookmark-version-control) version-control)
+               (t
+                t))))
+         (write-file file)
+         (kill-buffer (current-buffer))
+         (if (>= baud-rate 9600)
+             (message "Saving bookmarks to file %s...done" file)))))))
 
 
 (defun bookmark-import-new-list (new-list)