   (when init-file-debug
     (message "(Spacemacs) %s" (apply 'format msg args))))
 
+(defvar spacemacs-buffer--warnings nil
+  "List of warnings during startup.")
+
 (defun spacemacs-buffer/warning (msg &rest args)
   "Display MSG as a warning message but in buffer `*Messages*'.
 The message is always displayed. "
-  (message "(Spacemacs) Warning: %s" (apply 'format msg args)))
+  (let ((msg (apply 'format msg args)))
+    (message "(Spacemacs) Warning: %s" msg)
+    (add-to-list 'spacemacs-buffer--warnings msg 'append)))
 
 (defun spacemacs-buffer/insert-page-break ()
   "Insert a page break line in spacemacs buffer."

    (spacemacs-buffer//center-line)
    (insert "\n\n"))

(defun spacemacs-buffer//insert-file-list (list-display-name list)
  (when (car list)
    (insert list-display-name)

                         (spacemacs//subseq (projectile-relevant-known-projects)
                                            0 list-size))
                    (spacemacs//insert--shortcut "p" "Projects:")
                    (insert list-separator))))))
            (append
             '(warnings)
             dotspacemacs-startup-lists))))

(defun spacemacs-buffer//get-buffer-width ()
  (save-excursion
