diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/bookmark.el | 31 |
2 files changed, 19 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e31f15b90d8..8b43798e843 100644 --- 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 be0406610cb..6ac3c0f9d9a 100644 --- 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) |