Mercurial > emacs

changeset 39122:5ebb8291c155

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bookmark-write-file): Bind print-length and print-level to nil. From Tom Capey <tomc@edina.co.uk>.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 04 Sep 2001 13:17:29 +0000
parents ddf7e80768c6
children 23e2da4d67f2
files lisp/bookmark.el
diffstat 1 files changed, 16 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Tue Sep 04 13:12:55 2001 +0000
+++ b/lisp/bookmark.el	Tue Sep 04 13:17:29 2001 +0000
@@ -1347,21 +1347,22 @@
       (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)