diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 01:59:14 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-11 01:59:14 +0000 |
| commit | 37eb1eeae5f3c92611f208ef610206a9f215570e (patch) | |
| tree | 2cf528f0dcab9ef77f2b01bbaa2b563a35cc074e | |
| parent | 474d35ca3f9f6942ddaaee2298e83185a736a688 (diff) | |
| download | emacs-37eb1eeae5f3c92611f208ef610206a9f215570e.tar.gz | |
(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.
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 1 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 646370529ba..1a9de86dd93 100644 --- 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 af9e82b6a4d..0f11fc49ec2 100644 --- 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) |