     (cl-subseq seq start (and (number-or-marker-p end)
                               (min len end)))))
 
-(defun spacemacs-buffer/insert-startupify-lists ()
-  (interactive)
-  (with-current-buffer (get-buffer spacemacs-buffer-name)
-    (let ((buffer-read-only nil)
-          (list-separator "\n\n"))
-      (goto-char (point-max))
-      (spacemacs-buffer/insert-page-break)
-      (insert "\n")
+(defun spacemacs-buffer//do-insert-startupify-lists ()
+   (let ((list-separator "\n\n"))
       (mapc (lambda (els)
               (let ((el (or (car-safe els) els))
                     (list-size

(defvar spacemacs-buffer--fresh-install
  (not (file-exists-p dotspacemacs-filepath))
  "Non-nil if this Emacs instance if a fresh install.")

(defvar spacemacs-buffer-mode-map
  (let ((map (make-sparse-keymap)))

                   :mouse-face 'highlight
                   :follow-link "\C-m"
                   (propertize "Update Spacemacs" 'face 'font-lock-keyword-face))
    (let ((len (- (line-end-position)
                  (line-beginning-position))))
      (spacemacs-buffer//center-line)
      (setq spacemacs-buffer--buttons-position (- (line-end-position)
                                                  (line-beginning-position)
                                                  len)))
    (insert "\n")
    (widget-create 'push-button
                   :help-echo "Update all ELPA packages to the latest versions."
