2061 |
;; when vc-dired-mode-map is initialized. |
;; when vc-dired-mode-map is initialized. |
2062 |
(set-keymap-parent vc-dired-mode-map dired-mode-map) |
(set-keymap-parent vc-dired-mode-map dired-mode-map) |
2063 |
(add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
(add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
2064 |
;; The following is slightly modified from dired.el, |
;; The following is slightly modified from files.el, |
2065 |
;; because file lines look a bit different in vc-dired-mode |
;; because file lines look a bit different in vc-dired-mode |
2066 |
;; (the column before the date does not end in a digit). |
;; (the column before the date does not end in a digit). |
2067 |
(set (make-local-variable 'dired-move-to-filename-regexp) |
(set (make-local-variable 'directory-listing-before-filename-regexp) |
2068 |
(let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
(let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
2069 |
;; In some locales, month abbreviations are as short as 2 letters, |
;; In some locales, month abbreviations are as short as 2 letters, |
2070 |
;; and they can be followed by ".". |
;; and they can be followed by ".". |