[core] Fix ugly comment formating

In my last commit I have messed up the comment
formats so that they not longer show correctly
in help buffers. This fixes it.

core/core-dotspacemacs.el

@@ -457,11 +457,11 @@ and todos. If non nil only the file name is shown.")
 (defvar dotspacemacs--pretty-ignore-subdirs
   '(".cache/junk")
   "Subdirectories of `spacemacs-start-directory' to ignore when
-  prettifying Org files.")
+prettifying Org files.")
 
 (defun dotspacemacs//prettify-spacemacs-docs ()
   "Run `spacemacs/prettify-org-buffer' if `buffer-file-name'
-  looks like Spacemacs documentation."
+looks like Spacemacs documentation."
   (when (and dotspacemacs-pretty-docs
              spacemacs-start-directory
              buffer-file-name)
@@ -477,8 +477,8 @@ and todos. If non nil only the file name is shown.")
 
 (defmacro dotspacemacs|call-func (func &optional msg)
   "Call the function from the dotfile only if it is bound.
-  If MSG is not nil then display a message in `*Messages*'. Errors
-  are caught and signaled to user in spacemacs buffer."
+If MSG is not nil then display a message in `*Messages*'. Errors
+are caught and signaled to user in spacemacs buffer."
   `(progn
      (when ,msg (spacemacs-buffer/message ,msg))
      (when (fboundp ',func)
@@ -508,7 +508,7 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs//check-layers-changed ()
   "Check if the value of `dotspacemacs-configuration-layers'
-  changed, and issue a warning if it did."
+changed, and issue a warning if it did."
   (unless (eq dotspacemacs-configuration-layers
               dotspacemacs--configuration-layers-saved)
     (spacemacs-buffer/warning (concat
@@ -519,8 +519,8 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs//read-editing-style-config (config)
   "Read editing style CONFIG: apply variables and return the editing style.
-  CONFIG can be the symbol of an editing style or a list where the car is
-  the symbol of an editing style and the cdr is a list of keyword arguments like
+CONFIG can be the symbol of an editing style or a list where the car is
+the symbol of an editing style and the cdr is a list of keyword arguments like
   `:variables'."
   (cond
    ((symbolp config) config)
@@ -543,7 +543,7 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs/add-layer (layer-name)
   "Add LAYER_NAME to dotfile and reload the it.
-  Returns non nil if the layer has been effectively inserted."
+Returns non nil if the layer has been effectively inserted."
   (unless (configuration-layer/layer-used-p layer-name)
     (with-current-buffer (find-file-noselect (dotspacemacs/location))
       (beginning-of-buffer)
@@ -570,8 +570,8 @@ and todos. If non nil only the file name is shown.")
 (defun dotspacemacs/sync-configuration-layers (&optional arg)
   "Synchronize declared layers in dotfile with spacemacs.
 
-  Called with `C-u' skips `dotspacemacs/user-config'.
-  Called with `C-u C-u' skips `dotspacemacs/user-config' _and_ preliminary tests."
+Called with `C-u' skips `dotspacemacs/user-config'.
+Called with `C-u C-u' skips `dotspacemacs/user-config' _and_ preliminary tests."
   (interactive "P")
   (when (file-exists-p dotspacemacs-filepath)
     (with-current-buffer (find-file-noselect dotspacemacs-filepath)
@@ -622,8 +622,8 @@ and todos. If non nil only the file name is shown.")
 
 (defmacro dotspacemacs|symbol-value (symbol)
   "Return the value of SYMBOL corresponding to a dotspacemacs variable.
-  If SYMBOL value is `display-graphic-p' then return the result of
-  `(display-graphic-p)', otherwise return the value of the symbol."
+If SYMBOL value is `display-graphic-p' then return the result of
+`(display-graphic-p)', otherwise return the value of the symbol."
   `(if (eq 'display-graphic-p ,symbol) (display-graphic-p) ,symbol))
 
 (defun dotspacemacs/location ()
@@ -632,7 +632,7 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs/copy-template ()
   "Copy `.spacemacs.template' in home directory. Ask for confirmation
-  before copying the file if the destination already exists."
+before copying the file if the destination already exists."
   (interactive)
   (let* ((copy? (if (file-exists-p dotspacemacs-filepath)
                     (y-or-n-p
@@ -646,7 +646,7 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs//ido-completing-read (prompt candidates)
   "Call `ido-completing-read' with a CANDIDATES alist where the key is
-  a display strng and the value is the actual value to return."
+a display strng and the value is the actual value to return."
   (let ((ido-max-window-height (1+ (length candidates))))
     (cadr (assoc (ido-completing-read prompt (mapcar 'car candidates))
                  candidates))))
@@ -661,7 +661,7 @@ and todos. If non nil only the file name is shown.")
 (defun dotspacemacs/install (arg)
   "Install the dotfile, return non nil if the doftile has been installed.
 
-  If ARG is non nil then ask questions to the user before installing the dotfile."
+If ARG is non nil then ask questions to the user before installing the dotfile."
   (interactive "P")
   ;; preferences is an alist where the key is the text to replace by
   ;; the value in the dotfile
@@ -787,9 +787,9 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs/safe-load ()
   "Error recovery from malformed .spacemacs.
-  Loads default .spacemacs template and suspends pruning of orphan packages.
-  Informs users of error and prompts for default editing style for use during
-  error recovery."
+Loads default .spacemacs template and suspends pruning of orphan packages.
+Informs users of error and prompts for default editing style for use during
+error recovery."
   (load (concat dotspacemacs-template-directory
                 ".spacemacs.template"))
   (defadvice dotspacemacs/layers
@@ -942,7 +942,7 @@ and todos. If non nil only the file name is shown.")
 
 (defun dotspacemacs/test-dotfile (&optional hide-buffer)
   "Test settings in dotfile for correctness.
-  Return non-nil if all the tests passed."
+Return non-nil if all the tests passed."
   (interactive)
   (configuration-layer/discover-layers 'refresh-index)
   (let ((min-version "0.0"))