comparison lisp/emacs-lisp/autoload.el @ 80490:5b93ac4c9636

(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.

80489:fc6d47996893

	(load-name (let ((name (file-name-nondirectory file)))
		     (if (string-match "\\.elc?\\(\\.\\|$\\)" name)
			 (substring name 0 (match-beginning 0))
		       name)))
	(print-length nil)
	(print-readably t)		; This does something in Lucid Emacs.
	(float-output-format nil)
	(done-any nil)
	(visited (get-file-buffer file))
        output-start)

80490:5b93ac4c9636

	(load-name (let ((name (file-name-nondirectory file)))
		     (if (string-match "\\.elc?\\(\\.\\|$\\)" name)
			 (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)
	(visited (get-file-buffer file))
        output-start)