(switch-to-buffer "*splash*")
(with-current-buffer "*splash*"
  (let* ((message "Welcome to nEmacs")
	 (message-len (length message)))
    (insert
     (concat
      (make-string (/ (- (window-total-width) message-len) 2) ? )
      message
      "\n"))))

(provide 'nemacs-splash)