diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2004-06-08 00:36:04 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2004-06-08 00:36:04 +0000 |
| commit | 5f29a6c8cc0a8ef25998bd1432cd7091728c87a2 (patch) | |
| tree | 11c61b983f6fee68bfceec4c4ee2395598d789c0 | |
| parent | 0aa99669e388bc86a28bed751b4b11d78c859d36 (diff) | |
| download | emacs-5f29a6c8cc0a8ef25998bd1432cd7091728c87a2.tar.gz | |
* 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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/saveplace.el | 4 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8423246c1bc..feb0a4aedae 100644 --- 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 3e40f118a41..249bdfe00e3 100644 --- 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) |