generate autoloads versus eval-expression-print-level (patch)

[Kevin Ryde]

I was trying some update-file-autoloads and generate-file-autoloads via
progn forms in a test file, running them with C-M-x.  Eg.

    (progn
      (switch-to-buffer "x")
      (require 'autoload)
      (generate-file-autoloads "foo.el"))

I was very confused that my defgroups (in foo.el) like

    ;;;###autoload
    (defgroup my-group nil "This is my group."
      :prefix "my-group-"
      :group 'applications)

would end up in the output with ellipsis like

    (let ((loads (get ... ...))) (if (member (quote "foo") loads) nil (put 
(quote my-group) (quote custom-loads) (cons ... loads))))

I guess eval-expression-print-level interferes with what autoloads.el is
trying to produce.  I wonder autoloads.el could bind print-level like it
does print-length, for certainty of output.

2008-04-11  Kevin Ryde  <address@hidden>

        * emacs-lisp/autoload.el (autoload-generate-file-autoloads): Bind
        print-level to ensure defgroup 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.

autoload.el.print-level.diff
Description: Text Data