Lines Matching refs:rev
172 ;; * register (file &optional rev comment)
198 ;; - receive-file (file rev)
211 ;; * checkin (file rev comment)
218 ;; * find-version (file rev buffer)
225 ;; * checkout (file &optional editable rev)
325 ;; - annotate-command (file buf &optional rev)
405 ;; - previous-version (file rev)
410 ;; - next-version (file rev)
777 (defun vc-trunk-p (rev)
779 (not (eq nil (string-match "\\`[0-9]+\\.[0-9]+\\'" rev))))
781 (defun vc-branch-p (rev)
783 (not (eq nil (string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" rev))))
786 (defun vc-branch-part (rev)
788 (let ((index (string-match "\\.[0-9]+\\'" rev)))
790 (substring rev 0 index))))
792 (defun vc-minor-part (rev)
794 (string-match "[0-9]+\\'" rev)
795 (substring rev (match-beginning 0) (match-end 0)))
797 (defun vc-default-previous-version (backend file rev)
802 (let ((branch (vc-branch-part rev))
803 (minor-num (string-to-number (vc-minor-part rev))))
808 (if (vc-trunk-p rev)
816 (defun vc-default-next-version (backend file rev)
821 (when (not (string= rev (vc-workfile-version file)))
822 (let ((branch (vc-branch-part rev))
823 (minor-num (string-to-number (vc-minor-part rev))))
1328 (defun vc-next-action-dired (file rev comment)
1448 (lambda (file rev comment)
1452 (vc-call-backend backend 'register file rev comment)
1543 (defun vc-start-entry (file rev comment initial-contents msg action &optional after-hook)
1572 (setq vc-log-version rev)
1580 (defun vc-checkout (file &optional writable rev)
1587 (not rev)
1594 (vc-call checkout file writable rev)
1611 (defun vc-steal-lock (file rev owner)
1614 (if rev
1615 (setq file-description (format "%s:%s" file rev))
1623 (vc-call steal-lock file rev)
1638 (defun vc-checkin (file &optional rev comment initial-contents)
1651 file rev comment initial-contents
1653 (lambda (file rev comment)
1664 (vc-call checkin file rev comment)
1825 (defun vc-diff-label (file file-rev rev)
1828 (nth 5 (file-attributes file-rev)))
1829 rev))
1933 (defun vc-version-other-window (rev)
1940 (version (if (string-equal rev "")
1942 rev)))
1972 (defun vc-default-find-version (backend file rev buffer)
1979 (vc-call-backend backend 'checkout file nil rev tmpfile)
2423 (defun vc-print-log (&optional focus-rev)
2429 (or focus-rev (setq focus-rev (vc-workfile-version file)))
2465 ',focus-rev)
2468 (defun vc-default-show-log-entry (backend rev)
2470 (log-view-goto-rev rev)))
2571 (defun vc-version-backup-file (file &optional rev)
2577 (let ((backup-file (vc-version-backup-file-name file rev)))
2581 (setq backup-file (vc-version-backup-file-name file rev 'manual))
2587 (let ((rev (vc-workfile-version file))
2604 (vc-call find-version file rev outbuf)))))
2746 (let* ((rev (vc-workfile-version file))
2762 (vc-call-backend new-backend 'receive-file file rev))
2783 (defun vc-default-receive-file (backend file rev)
2785 (vc-call-backend backend 'register file rev ""))
2978 (defvar vc-annotate-parent-rev nil)
3106 (defun vc-annotate (file rev &optional display-mode buf)
3147 (let* ((temp-buffer-name (format "*Annotate %s (rev %s)*" (buffer-name) rev))
3162 (vc-call annotate-command file (get-buffer temp-buffer-name) rev)
3171 (set (make-local-variable 'vc-annotate-parent-rev) rev)
3199 (let ((warp-rev (vc-workfile-version vc-annotate-parent-file)))
3200 (if (equal warp-rev vc-annotate-parent-rev)
3201 (message "Already at version %s" warp-rev)
3202 (vc-annotate-warp-version warp-rev)))))
3214 (let ((rev-at-line (vc-annotate-extract-revision-at-line)))
3215 (if (not rev-at-line)
3217 (if (equal rev-at-line vc-annotate-parent-rev)
3218 (message "Already at version %s" rev-at-line)
3219 (vc-annotate-warp-version rev-at-line))))))
3226 (let ((rev-at-line (vc-annotate-extract-revision-at-line))
3227 (prev-rev nil))
3228 (if (not rev-at-line)
3230 (setq prev-rev
3231 (vc-call previous-version vc-annotate-parent-file rev-at-line))
3232 (vc-annotate-warp-version prev-rev)))))
3239 (let ((rev-at-line (vc-annotate-extract-revision-at-line)))
3240 (if (not rev-at-line)
3242 (vc-print-log rev-at-line)))))
3249 (let ((rev-at-line (vc-annotate-extract-revision-at-line))
3250 (prev-rev nil))
3251 (if (not rev-at-line)
3253 (setq prev-rev
3254 (vc-call previous-version vc-annotate-parent-file rev-at-line))
3255 (if (not prev-rev)
3256 (message "Cannot diff from any version prior to %s" rev-at-line)
3258 (vc-version-diff vc-annotate-parent-file prev-rev rev-at-line))
3278 (setq newrev vc-annotate-parent-rev)
3285 revspeccopy vc-annotate-parent-rev)))
3287 (setq newrev vc-annotate-parent-rev)
3294 (- 0 revspeccopy) vc-annotate-parent-rev)))
3675 ;; RCS: co error: revision <rev> locked by <user>; use co -r or rcs -u