(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 646370529ba50a9e9bb34bfa21d28a49e415752e..1a9de86dd937a75c7c5109d02cc1293c847a7cbc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index af9e82b6a4d7c2e69e4808829ea5fd61ef2e50a0..0f11fc49ec247d45738050f807b533252b79eb1a 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -301,6 +301,7 @@ Return non-nil in the case where no autoloads were added at point."
                         (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)