1201 |
(vc-version-diff file (vc-workfile-version file) nil) |
(vc-version-diff file (vc-workfile-version file) nil) |
1202 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1203 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1204 |
(insert-string |
(insert |
1205 |
(format "Changes to %s since last lock:\n\n" file))) |
(format "Changes to %s since last lock:\n\n" file))) |
1206 |
(not (beep)) |
(not (beep)) |
1207 |
(yes-or-no-p (concat "File has unlocked changes. " |
(yes-or-no-p (concat "File has unlocked changes. " |
2152 |
;; We do it here because dired might not be loaded yet |
;; We do it here because dired might not be loaded yet |
2153 |
;; when vc-dired-mode-map is initialized. |
;; when vc-dired-mode-map is initialized. |
2154 |
(set-keymap-parent vc-dired-mode-map dired-mode-map) |
(set-keymap-parent vc-dired-mode-map dired-mode-map) |
|
(make-local-hook 'dired-after-readin-hook) |
|
2155 |
(add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
(add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
2156 |
;; The following is slightly modified from dired.el, |
;; The following is slightly modified from dired.el, |
2157 |
;; because file lines look a bit different in vc-dired-mode. |
;; because file lines look a bit different in vc-dired-mode. |