From 37eb1eeae5f3c92611f208ef610206a9f215570e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 Apr 2008 01:59:14 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 11 +++++++++-- 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 + + * 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 - * 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) -- 2.39.2