                        (format "Version (default %s [latest]): " last-version)
                        nil nil last-version))))
     (cond ((string-equal "develop" branch)
-           (message (concat "Cannot switch version because you are on develop.\n"
-                            "You have to manually `pull --rebase' the latest commits.")))
+           (message (concat "Cannot switch version because you are on "
+                            "develop.\n"
+                            "You have to manually `pull --rebase' the latest "
+                            "commits.")))
           (dirty
-           (message "Your Emacs directory is not clean.\ngit status:\n%s" dirty))
+           (message (concat "Your Emacs directory is not clean.\n"
+                            "git status:\n%s") dirty))
           ((string-equal version spacemacs-version)
            (message "You are already on the latest version."))
           ((or (string-equal "master" branch)
                (yes-or-no-p
-                (format (concat "You are not on master. This command will switch branches.\n"
-                                "Are you sure that you want to switch to version %s ? ")
+                (format (concat "You are not on master. "
+                                "This command will switch branches.\n"
+                                "Are you sure that you want to switch "
+                                "to version %s ? ")
                         version)))
            (let ((tag (concat "v" version)))
              (if (spacemacs/git-hard-reset-to-tag tag)


(defun spacemacs/git-add-remote (remote url)
  "Add a REMOTE with URL, return t if no error."
  (let((proc-buffer "git-add-remote")
       (default-directory (file-truename spacemacs-start-directory)))
    (prog1
        (eq 0 (process-file "git" nil proc-buffer nil


(defun spacemacs/git-has-remote (remote)
  "Return non nil if REMOTE is declared."
  (let ((proc-buffer "git-has-remote")
       (default-directory (file-truename spacemacs-start-directory)))
    (when (eq 0 (process-file "git" nil proc-buffer nil "remote"))
        (with-current-buffer proc-buffer
