From 927a444ee81ce5b433ba01a2a559187d52c11c42 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 9 May 2008 07:03:15 +0000 Subject: [PATCH] (vc-version-diff, vc-print-log, vc-revert, vc-rollback) (vc-update): Remove unused let bindings. --- lisp/ChangeLog | 9 +++++++-- lisp/vc.el | 7 ------- 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 + + * vc.el (vc-version-diff, vc-print-log, vc-revert, vc-rollback) + (vc-update): Remove unused let bindings. + 2008-05-09 Eric S. Raymond * 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))) -- 2.39.5