Mercurial > emacs
changeset 55981:92b7aae8907e
* 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.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Tue, 08 Jun 2004 00:36:04 +0000 |
| parents | 36b576e0dfe6 |
| children | de4c259f651b |
| files | lisp/ChangeLog lisp/saveplace.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jun 07 21:38:35 2004 +0000 +++ b/lisp/ChangeLog Tue Jun 08 00:36:04 2004 +0000 @@ -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.
--- a/lisp/saveplace.el Mon Jun 07 21:38:35 2004 +0000 +++ b/lisp/saveplace.el Tue Jun 08 00:36:04 2004 +0000 @@ -207,7 +207,9 @@ (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)