   (size-indication-mode -1)
   (setq-default mode-line-buffer-identification
                 (propertized-buffer-identification "%15b"))
+  (setq-default mode-line-modified
+                (list (propertize
+                       "%1*"
+                       'help-echo 'mode-line-read-only-help-echo
+                       'local-map (purecopy (make-mode-line-mouse-map
+                                             'mouse-1
+                                             #'mode-line-toggle-read-only))
+                       'mouse-face 'mode-line-highlight)))
 
   (if is-after-emacs-23
       (setq-default

           (propertize "%]" 'help-echo recursive-edit-help-echo))))
    (setq-default mode-line-modes standard-mode-line-modes)
    (setq-default mode-line-format
                  `("-%e"
                    mode-line-mule-info
                    mode-line-client
                    mode-line-modified
                    mode-line-remote
                    " "
                    mode-line-buffer-identification
                    ,(propertize " " 'help-echo help-echo)

                    mode-line-modes
                    (which-func-mode (" " which-func-format))
                    (display-time-string (" " display-time-string))
                    (working-mode-line-message (" " working-mode-line-message)))))

  (setq mode-line-format-bak mode-line-format)
  (setq mode-line t)

  ;; 在标题栏显示登陆名称和文件名
  (setq frame-title-format
        '("Emacs - "
          (:eval (or (buffer-file-name) (buffer-name)))))
  )

(mode-line-settings)
