2666 |
(defun vc-delete-file (file) |
(defun vc-delete-file (file) |
2667 |
"Delete file and mark it as such in the version control system." |
"Delete file and mark it as such in the version control system." |
2668 |
(interactive "fVC delete file: ") |
(interactive "fVC delete file: ") |
2669 |
(let ((buf (get-file-buffer file))) |
(let ((buf (get-file-buffer file)) |
2670 |
|
(backend (vc-backend file))) |
2671 |
|
(unless backend |
2672 |
|
(error "File %s is not under version control" |
2673 |
|
(file-name-nondirectory file))) |
2674 |
(unless (vc-find-backend-function backend 'delete-file) |
(unless (vc-find-backend-function backend 'delete-file) |
2675 |
(error "Renaming files under %s is not supported in VC" backend)) |
(error "Deleting files under %s is not supported in VC" backend)) |
2676 |
(if (and buf (buffer-modified-p buf)) |
(if (and buf (buffer-modified-p buf)) |
2677 |
(error "Please save files before deleting them")) |
(error "Please save files before deleting them")) |
2678 |
(unless (y-or-n-p (format "Really want to delete %s ? " |
(unless (y-or-n-p (format "Really want to delete %s ? " |
3083 |
(set (make-local-variable 'vc-annotate-color-map) color-map)) |
(set (make-local-variable 'vc-annotate-color-map) color-map)) |
3084 |
(set (make-local-variable 'vc-annotate-offset) offset) |
(set (make-local-variable 'vc-annotate-offset) offset) |
3085 |
(font-lock-mode 1)) |
(font-lock-mode 1)) |
|
(make-obsolete 'vc-annotate-display 'vc-annotate-display-select "21.4") |
|
3086 |
|
|
3087 |
(defvar vc-annotate-offset nil) |
(defvar vc-annotate-offset nil) |
3088 |
|
|