comparison lisp/vc.el @ 51245:f6920b201e1c

(vc-delete-file): Fix free variable reference. (vc-annotate-display): Remove obsolesence declaration; it isn't obsolete.

51244:18df58e3c486

;; Author:     FSF (see below for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>
;; Keywords: tools

;; $Id: vc.el,v 1.352 2003/05/09 16:33:10 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

       (error "New file lacks a version control directory")))))

(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)))
    (unless (vc-find-backend-function backend 'delete-file)
      (error "Renaming 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 ? "
			      (file-name-nondirectory file)))
      (error "Abort!"))

The annotations are relative to the current time, unless overridden by OFFSET."
  (if (and color-map (not (eq color-map vc-annotate-color-map)))
      (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)

(defun vc-annotate-lines (limit)
  (let (difference)

51245:f6920b201e1c

;; Author:     FSF (see below for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>
;; Keywords: tools

;; $Id: vc.el,v 1.353 2003/05/18 02:53:24 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

       (error "New file lacks a version control directory")))))

(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))
        (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 "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 ? "
			      (file-name-nondirectory file)))
      (error "Abort!"))

The annotations are relative to the current time, unless overridden by OFFSET."
  (if (and color-map (not (eq color-map vc-annotate-color-map)))
      (set (make-local-variable 'vc-annotate-color-map) color-map))
  (set (make-local-variable 'vc-annotate-offset) offset)
  (font-lock-mode 1))

(defvar vc-annotate-offset nil)

(defun vc-annotate-lines (limit)
  (let (difference)