   (cond (buffer-read-only
          (propertize " R " 'face 'modeline-modified))
         ((buffer-modified-p)
-         (propertize " ! " 'face 'modeline-modified))
+         (propertize " * " 'face 'modeline-modified))
         (t "   ")))
 
 (defun modeline-segment-buffer-name ()


(defun modeline-segment-major-mode ()
  "Displays the current major mode in the modeline."
  (propertize "%m "
              'face (if (modeline-is-active)
                        'modeline-status-mode
                      'modeline-status-grayed-out)))

(defun modeline-segment-flycheck ()
  "Displays color-coded flycheck information in the modeline (if available)."

  "Displays the current value of `mode-line-process' in the modeline."
  (when mode-line-process
    (list mode-line-process "  ")))

;;;###autoload
(define-minor-mode modeline-mode
