Mercurial > emacs
changeset 51245:f6920b201e1c
(vc-delete-file): Fix free variable reference.
(vc-annotate-display): Remove obsolesence declaration; it isn't
obsolete.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Mon, 26 May 2003 10:33:00 +0000 |
| parents | 18df58e3c486 |
| children | cc1d7e2b2b7b |
| files | lisp/vc.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon May 26 01:02:31 2003 +0000 +++ b/lisp/vc.el Mon May 26 10:33:00 2003 +0000 @@ -7,7 +7,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.352 2003/05/09 16:33:10 monnier Exp $ +;; $Id: vc.el,v 1.353 2003/05/18 02:53:24 monnier Exp $ ;; This file is part of GNU Emacs. @@ -2666,9 +2666,13 @@ (defun vc-delete-file (file) "Delete file and mark it as such in the version control system." (interactive "fVC delete file: ") - (let ((buf (get-file-buffer file))) + (let ((buf (get-file-buffer file)) + (backend (vc-backend file))) + (unless backend + (error "File %s is not under version control" + (file-name-nondirectory file))) (unless (vc-find-backend-function backend 'delete-file) - (error "Renaming files under %s is not supported in VC" backend)) + (error "Deleting files under %s is not supported in VC" backend)) (if (and buf (buffer-modified-p buf)) (error "Please save files before deleting them")) (unless (y-or-n-p (format "Really want to delete %s ? " @@ -3079,7 +3083,6 @@ (set (make-local-variable 'vc-annotate-color-map) color-map)) (set (make-local-variable 'vc-annotate-offset) offset) (font-lock-mode 1)) -(make-obsolete 'vc-annotate-display 'vc-annotate-display-select "21.4") (defvar vc-annotate-offset nil)