/[emacs]/emacs/lisp/vc.el
ViewVC logotype

Diff of /emacs/lisp/vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.353 by monnier, Sun May 18 02:53:24 2003 UTC revision 1.354 by spiegel, Mon May 26 10:33:00 2003 UTC
# Line 2666  backend to NEW-BACKEND, and unregister F Line 2666  backend to NEW-BACKEND, and unregister F
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 ? "
# Line 3079  The annotations are relative to the curr Line 3083  The annotations are relative to the curr
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    

Legend:
Removed from v.1.353  
changed lines
  Added in v.1.354

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26