(vc-version-diff, vc-print-log, vc-revert, vc-rollback)

(vc-update): Remove unused let bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ea5065..65b7bc0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,13 @@
+2008-05-09  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc.el (vc-version-diff, vc-print-log, vc-revert, vc-rollback)
+       (vc-update): Remove unused let bindings.
+
 2008-05-09  Eric S. Raymond  <esr@snark.thyrsus.com>
 
        * vc.el (vc-deduce-fileset, vc-next-action, vc-version-diff)
-       (vc-diff, vc-rwevert, vc-rollback, vc-update), 
-       vc-dispatcher.el (vc-dispatcher-selection-set):
+       (vc-diff, vc-revert, vc-rollback, vc-update):
+       * vc-dispatcher.el (vc-dispatcher-selection-set):
        Get rid of 4 special cases in fileset selection.  This involved
        changing the return value of (vc-deduce-fileset) so that it passes
        back a deduced state as well as a deduced back end,

diff --git a/lisp/vc.el b/lisp/vc.el
index 7127225..4d0151b 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1559,8 +1559,6 @@ returns t if the buffer had changes, nil otherwise."
   "Report diffs between revisions of the fileset in the repository history."
   (interactive
    (let* ((vc-fileset (vc-deduce-fileset))
-         (backend (car files))
-         (state (cadr vc-fileset))
          (files (cddr vc-fileset))
          (first (car files))
          (completion-table
@@ -2121,7 +2119,6 @@ If WORKING-REVISION is non-nil, leave the point at that revision."
   (interactive)
   (let* ((vc-fileset (vc-deduce-fileset))
         (backend (car vc-fileset))
-        (state (cadr vc-fileset))
         (files (cddr vc-fileset))
         (working-revision (or working-revision (vc-working-revision (car files)))))
     ;; Don't switch to the output buffer before running the command,
@@ -2152,8 +2149,6 @@ This asks for confirmation if the buffer contents are not identical
 to the working revision (except for keyword expansion)."
   (interactive)
   (let* ((vc-fileset (vc-deduce-fileset))
-        (backend (car vc-fileset))
-        (state (cadr vc-fileset))
         (files (cddr vc-fileset)))
     ;; If any of the files is visited by the current buffer, make
     ;; sure buffer is saved.  If the user says `no', abort since
@@ -2186,7 +2181,6 @@ depending on the underlying version-control system."
   (interactive)
   (let* ((vc-fileset (vc-deduce-fileset))
         (backend (car vc-fileset))
-        (state (cadr vc-fileset))
         (files (cddr vc-fileset))
         (granularity (vc-call-backend backend 'revision-granularity)))
     (unless (vc-find-backend-function backend 'rollback)
@@ -2242,7 +2236,6 @@ changes from the current branch are merged into the working file."
   (interactive)
   (let* ((vc-fileset (vc-deduce-fileset))
         (backend (car vc-fileset))
-        (state (cadr vc-fileset))
         (files (cddr vc-fileset)))
     (dolist (file files)
       (when (let ((buf (get-file-buffer file)))