diff lisp/vc.el @ 94796:6a8a15e68e80

(vc-version-diff, vc-print-log, vc-revert, vc-rollback) (vc-update): Remove unused let bindings.

--- a/lisp/vc.el	Fri May 09 05:14:16 2008 +0000
+++ b/lisp/vc.el	Fri May 09 07:03:15 2008 +0000
@@ -1559,8 +1559,6 @@
   "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 @@
   (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 @@
 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 @@
   (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 @@
   (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)))