321 |
;; vc-BACKEND-diff. The default implementation does an explicit tree |
;; vc-BACKEND-diff. The default implementation does an explicit tree |
322 |
;; walk, calling vc-BACKEND-diff for each individual file. |
;; walk, calling vc-BACKEND-diff for each individual file. |
323 |
;; |
;; |
324 |
;; - annotate-command (file buf rev) |
;; - annotate-command (file buf &optional rev) |
325 |
;; |
;; |
326 |
;; If this function is provided, it should produce an annotated version |
;; If this function is provided, it should produce an annotated display |
327 |
;; of FILE in BUF, relative to version REV. This is currently only |
;; of FILE in BUF, relative to version REV. Annotation means each line |
328 |
;; implemented for CVS, using the `cvs annotate' command. |
;; of FILE displayed is prefixed with version information associated with |
329 |
|
;; its addition (deleted lines leave no history) and that the text of the |
330 |
|
;; file is fontified according to age. |
331 |
;; |
;; |
332 |
;; - annotate-time () |
;; - annotate-time () |
333 |
;; |
;; |
647 |
:type '(repeat number) |
:type '(repeat number) |
648 |
:group 'vc) |
:group 'vc) |
649 |
|
|
|
;; vc-annotate functionality (CVS only). |
|
650 |
(defvar vc-annotate-mode-map |
(defvar vc-annotate-mode-map |
651 |
(let ((m (make-sparse-keymap))) |
(let ((m (make-sparse-keymap))) |
652 |
(define-key m [menu-bar] (make-sparse-keymap "VC-Annotate")) |
(define-key m [menu-bar] (make-sparse-keymap "VC-Annotate")) |
1116 |
editing non-current versions is not supported by default." |
editing non-current versions is not supported by default." |
1117 |
t) |
t) |
1118 |
|
|
|
(defun vc-recompute-state (file) |
|
|
"Force a recomputation of the version control state of FILE. |
|
|
The state is computed using the exact, and possibly expensive |
|
|
function `vc-BACKEND-state', not the heuristic." |
|
|
(vc-file-setprop file 'vc-state (vc-call state file))) |
|
|
|
|
1119 |
(defun vc-next-action-on-file (file verbose &optional comment) |
(defun vc-next-action-on-file (file verbose &optional comment) |
1120 |
"Do The Right Thing for a given FILE under version control. |
"Do The Right Thing for a given FILE under version control. |
1121 |
If COMMENT is specified, it will be used as an admin or checkin comment. |
If COMMENT is specified, it will be used as an admin or checkin comment. |