Как мне отобразить ветку git в модельном ряду emacs?

Question

По умолчанию моделин вроде:

Emacs отображает Git-master когда я работаю в каталоге, который находится под системой контроля версий Git. Теперь я настраиваю modeline в файле init-modeline.el как это:

(setq-default mode-line-format
    (list
        ;; the buffer name; the file name as a tool tip
        '(:eval (propertize "%b " 'face font-lock-keyword-face
        'help-echo (buffer-file-name)))

        ;; line and column
        "("
        "%02l" "," "%01c"
        ") "
        ......
))

Затем добавьте (require 'init-modeline) в init.el,

Теперь emacs не отображает ветку git в модельной строке emacs, поэтому я добавляю '(vc-mode vc-mode) в init-modeline.el как это:

    (setq-default mode-line-format
    (list
        ;; the buffer name; the file name as a tool tip
        '(:eval (propertize "%b " 'face font-lock-keyword-face
        'help-echo (buffer-file-name)))

        ;; line and column
        "("
        "%02l" "," "%01c"
        ") "

        '(vc-mode vc-mode)
        ......
))

Теперь моделин показывает так:

Это только показывает -masterКак я могу показать Git-master?

Значение переменной vc-mode в init-mode буфер как:

vc-mode's value is #(" :master" 0 1
  (face sml/vc-edited)
  1 8
  (help-echo "Locally modified file under the Git version control system\nCurrent revision: master\nmouse-1: Version Control menu" face sml/vc-edited local-map
         (keymap
          (mode-line keymap
                     (down-mouse-1 menu-item "Version Control" vc-menu-map :filter vc-menu-map-filter)))
         mouse-face mode-line-highlight))

Local in buffer init.el; global value is nil

  Automatically becomes permanently buffer-local when set.
  This variable may be risky if used as a file-local variable.