Mercurial > emacs

changeset 94796:6a8a15e68e80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-version-diff, vc-print-log, vc-revert, vc-rollback) (vc-update): Remove unused let bindings.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 09 May 2008 07:03:15 +0000
parents 188974bfdea0
children 89a5cb9cf680
files lisp/ChangeLog lisp/vc.el
diffstat 2 files changed, 7 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri May 09 05:14:16 2008 +0000
+++ b/lisp/ChangeLog	Fri May 09 07:03:15 2008 +0000
@@ -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,
--- 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)))