(defun info-setup ()
       (setq right-margin 53)
       )

(auto-execute "info-setup" "credits")
(auto-execute "info-setup" "help*")
(novalue)