diff options
| author | Gerd Moellmann <[email protected]> | 2001-09-04 13:17:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-09-04 13:17:56 +0000 |
| commit | 1672462f74f765e468a429f700cae2a1168e19af (patch) | |
| tree | f84f9675a273af0ba0bc1b7af28475db7c00bad3 | |
| parent | e73c5b91dfae1512bbc407041a5de649681ecee1 (diff) | |
(bookmark-write-file): Bind print-length and
print-level to nil. From Tom Capey <[email protected]>.
| -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 e31f15b90d..8b43798e84 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-09-04 Gerd Moellmann <[email protected]> + * bookmark.el (bookmark-write-file): Bind print-length and + print-level to nil. From Tom Capey <[email protected]>. + * 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 be0406610c..6ac3c0f9d9 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) |