summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2008-04-11 01:59:14 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2008-04-11 01:59:14 +0000
commit37eb1eeae5f3c92611f208ef610206a9f215570e (patch)
tree2cf528f0dcab9ef77f2b01bbaa2b563a35cc074e /lisp/emacs-lisp
parent474d35ca3f9f6942ddaaee2298e83185a736a688 (diff)
downloademacs-37eb1eeae5f3c92611f208ef610206a9f215570e.tar.gz
emacs-37eb1eeae5f3c92611f208ef610206a9f215570e.tar.bz2
emacs-37eb1eeae5f3c92611f208ef610206a9f215570e.zip
(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.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/autoload.el1
1 files changed, 1 insertions, 0 deletions
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)