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

(vc-update): Remove unused let bindings.

2 files changed, 7 insertions, 9 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ea50655461..65b7bc0e3e3 100644
--- 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 7127225ad4c..4d0151b5046 100644
--- 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)))