# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207879154 0
# Node ID 5b93ac4c96369ad6e557111e7f7c5a31f165acdb
# Parent  fc6d47996893bbf8423d0a3b812fb7abe4e18368
(autoload-generate-file-autoloads):
Bind print-level to ensure output forms aren't truncated if
print-level is set to eval-expression-print-level when going via
eval-defun and friends, or has been otherwise fiddled with.

diff -r fc6d47996893 -r 5b93ac4c9636 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 10 20:47:59 2008 +0000
+++ b/lisp/ChangeLog	Fri Apr 11 01:59:14 2008 +0000
@@ -1,7 +1,14 @@
+2008-04-11  Kevin Ryde  <user42@zip.com.au>
+
+	* emacs-lisp/autoload.el (autoload-generate-file-autoloads):
+	Bind print-level to ensure output forms aren't truncated if
+	print-level is set to eval-expression-print-level when going via
+	eval-defun and friends, or has been otherwise fiddled with.
+
 2008-04-09  Michael Albinus  <michael.albinus@gmx.de>
 
-	* net/tramp.el (tramp-find-file-name-coding-system-alist): New
-	defun.
+	* net/tramp.el (tramp-find-file-name-coding-system-alist):
+	New defun.
 	(tramp-handle-insert-file-contents, tramp-handle-write-region):
 	Use it.
 
diff -r fc6d47996893 -r 5b93ac4c9636 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Thu Apr 10 20:47:59 2008 +0000
+++ b/lisp/emacs-lisp/autoload.el	Fri Apr 11 01:59:14 2008 +0000
@@ -301,6 +301,7 @@
 			 (substring name 0 (match-beginning 0))
 		       name)))
 	(print-length nil)
+	(print-level nil)
 	(print-readably t)		; This does something in Lucid Emacs.
 	(float-output-format nil)
 	(done-any nil)