309 |
(defcustom vc-arch-mode-line-rewrite |
(defcustom vc-arch-mode-line-rewrite |
310 |
'(("\\`.*--\\(.*--.*\\)--\\(v?\\).*-\\([0-9]+\\)\\'" . "\\2\\3[\\1]")) |
'(("\\`.*--\\(.*--.*\\)--\\(v?\\).*-\\([0-9]+\\)\\'" . "\\2\\3[\\1]")) |
311 |
"Rewrite rules to shorten Arch's revision names on the mode-line." |
"Rewrite rules to shorten Arch's revision names on the mode-line." |
312 |
:type '(repeat (cons regexp string))) |
:type '(repeat (cons regexp string)) |
313 |
|
:group 'vc) |
314 |
|
|
315 |
(defun vc-arch-mode-line-string (file) |
(defun vc-arch-mode-line-string (file) |
316 |
"Return string for placement in modeline by `vc-mode-line' for FILE." |
"Return string for placement in modeline by `vc-mode-line' for FILE." |