From 6fc4a45023f3a42941d345609810896a97f5e96b Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Tue, 7 Dec 2010 12:10:56 -0500 Subject: [PATCH] Set print-{level,length} explicitly, for safety. --- elinstall.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/elinstall.el b/elinstall.el index 8235745..4ef6b2d 100644 --- a/elinstall.el +++ b/elinstall.el @@ -135,7 +135,9 @@ CAUTION: This is sensitive to where it's called. That's the point of it." (current-time) 'installed)) (old-item - (elinstall-get-installation-record project-name))) + (elinstall-get-installation-record project-name)) + (print-length nil) + (print-level nil)) (when old-item (setq elinstall-already-installed (delete old-item elinstall-already-installed))) @@ -206,8 +208,10 @@ which lists the file name and which functions are in it, etc." (defun elinstall-insert-autoload-section (text form &optional comment-string) "Insert TEXT into current buffer as an autoload section" - (let* ( ;; This does something in Lucid Emacs. + (let* ( (print-length nil) + (print-level nil) + ;; This does something in Lucid Emacs. (print-readably t) (float-output-format nil)) @@ -231,8 +235,9 @@ which lists the file name and which functions are in it, etc." (short-name (file-name-nondirectory full-path)) - ;; Apparently this does something in Lucid Emacs. (print-length nil) + (print-level nil) + ;; Apparently this does something in Lucid Emacs. (print-readably t) (float-output-format nil) @@ -397,7 +402,9 @@ Current buffer must be a loaddef-style file." (add-to-info-path "info-path"))) (autoloads-done '()) (print-length nil) - (print-readably t) ; This does something in Lucid Emacs. + (print-level nil) + ;; This does something in Lucid Emacs. + (print-readably t) (float-output-format nil)) (message "Generating %s additions..." description) -- 2.11.4.GIT