(vc-mcvs-register): Fix let-binding (for use of `file').

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7f16811201a2f5858dcb4be891232266df3e9a8..b7d40b19998887cd76ca16dc7207573fa455d463 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-24  Glenn Morris  <rgm@gnu.org>
+
+       * vc-mcvs.el (vc-mcvs-register): Fix let-binding (for use of `file').
+
 2008-02-24  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * progmodes/compile.el (compilation-start): Specify a face for

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index 73fe7457dfa5c7ed4b9f3885fbf5743b2b949d5e..6be69e47bd87d2b83ade34bf6ab66c3c5e963120 100644 (file)
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -216,7 +216,7 @@ COMMENT can be used to provide an initial description of FILE.
 the Meta-CVS command (in that order)."
   ;; FIXME: multiple-file case should be made to work
   (if (> (length files) 1) (error "Registering filesets is not yet supported."))
-  (let* ((file (car files)) 
+  (let* ((file (car files))
         (filename (file-name-nondirectory file))
         (extpos (string-match "\\." filename))
         (ext (if extpos (substring filename (1+ extpos))))
@@ -245,19 +245,19 @@ the Meta-CVS command (in that order)."
          (pp types (current-buffer))
          (save-buffer)
          (unless (get-buffer-window (current-buffer) t)
-           (kill-buffer (current-buffer)))))))
-  ;; Now do the ADD.
-  (prog1 (apply 'vc-mcvs-command nil 0 file
-               "add"
-               (and comment (string-match "[^\t\n ]" comment)
-                    (concat "-m" comment))
-               (vc-switches 'MCVS 'register))
-    ;; I'm not sure exactly why, but if we don't setup the inode and root
-    ;; prop of the file, things break later on in vc-mode-line that
-    ;; ends up calling vc-mcvs-working-revision.
-    ;; We also need to set vc-checkout-time so that vc-workfile-unchanged-p
-    ;; doesn't try to call `mcvs diff' on the file.
-    (vc-mcvs-registered file)))
+           (kill-buffer (current-buffer))))))
+    ;; Now do the ADD.
+    (prog1 (apply 'vc-mcvs-command nil 0 file
+                  "add"
+                  (and comment (string-match "[^\t\n ]" comment)
+                       (concat "-m" comment))
+                  (vc-switches 'MCVS 'register))
+      ;; I'm not sure exactly why, but if we don't setup the inode and root
+      ;; prop of the file, things break later on in vc-mode-line that
+      ;; ends up calling vc-mcvs-working-revision.
+      ;; We also need to set vc-checkout-time so that vc-workfile-unchanged-p
+      ;; doesn't try to call `mcvs diff' on the file.
+      (vc-mcvs-registered file))))
 
 (defalias 'vc-mcvs-responsible-p 'vc-mcvs-root
   "Return non-nil if CVS thinks it is responsible for FILE.")