(setq default-modeline-format
   (list
      (cons modeline-modified-extent 'modeline-modified)
      " "
      (list 'line-number-mode "L%l ")
      (list 'column-number-mode "C%c ")
      (cons modeline-buffer-id-extent 'modeline-buffer-identification)
      'global-mode-string
      " %[("
      (list modeline-minor-mode-extent "" 'mode-name 'minor-mode-alist)
      (cons modeline-narrowed-extent "%n")
      'modeline-process
      ")%]-%p-%-"
   ))