Lines Matching +defs:old +defs:mark
52 ;; Some features will not work with old RCS versions. Where
56 ;; Even initial checkins will fail if your RCS version is so old that ci
430 ;; Delete FILE and mark it as deleted in the repository. If this
434 ;; - rename-file (old new)
438 ;; will be done by (vc-delete-file old) and (vc-register new).
684 (defcustom vc-annotate-very-old-color "#3F3FFF"
911 (goto-char (process-mark p))
913 (set-marker (process-mark p) (point))))))
950 (goto-char (process-mark p))
1078 ;; Use mark-marker to avoid confusion in transient-mark-mode.
1079 (mark-context (if (eq (marker-buffer (mark-marker)) (current-buffer))
1080 (vc-position-context (mark-marker))))
1081 ;; Make the right thing happen in transient-mark-mode.
1082 (mark-active nil)
1095 ;; compilation-old-error-list
1109 (list point-context mark-context reparse)))
1112 "Restore point/mark, and reparse any affected compilation buffers.
1115 (mark-context (nth 1 context))
1138 ;; if necessary, restore point and mark
1142 (and mark-active
1143 mark-context
1144 (not (vc-context-matches-p (mark) mark-context))
1145 (let ((new-mark (vc-find-position-by-context mark-context)))
1146 (if new-mark (set-mark new-mark))))))
1149 "Revert buffer, keeping point and mark where user expects them.
1157 ;; and mark properly even in cases where vc-restore-buffer-context
1525 (let ((view-old-buffer-read-only nil))
1973 "Provide the new `find-version' op based on the old `checkout' op.
1974 This is only for compatibility with old backends. They should be updated
2021 ;; save-excursion may be able to relocate point and mark
2114 There is a special command, `*l', to mark all files currently locked."
2172 (defun vc-dired-mark-locked ()
2175 (dired-mark-if (let ((f (dired-get-filename nil t)))
2181 (define-key vc-dired-mode-map "*l" 'vc-dired-mark-locked)
2658 (norevert ;; clear version headers and mark the buffer modified
2731 (let* ((old-backend (vc-backend file))
2737 (or (memq new-backend (memq old-backend vc-handled-backends))
2740 (if (eq old-backend new-backend)
2745 (vc-switch-backend file old-backend)
2770 (vc-switch-backend file old-backend)
2815 "Delete file and mark it as such in the version control system."
2837 (defun vc-default-rename-file (backend old new)
2839 (add-name-to-file old new)
2840 (error (rename-file old new)))
2841 (vc-delete-file old)
2846 (defun vc-rename-file (old new)
2849 (let ((oldbuf (get-file-buffer old)))
2856 (let ((state (vc-state old)))
2860 (vc-call rename-file old new)
2861 (vc-file-clearprops old)
2863 (if (file-exists-p old) (rename-file old new))
2865 ;; We should really check out a new copy if the old copy was precisely equal
2937 (push-mark)
3037 (format "Spanned from %.1f to %.1f days old"
3040 (format "Spanned to %.1f days old" (- current oldest))))))
3129 `vc-annotate-very-old-color' defines the mapping of time to
3355 (cons nil vc-annotate-very-old-color)))