# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207189293 0
# Node ID c505d070db068792f522b3373ec461a58c2d629d
# Parent  01f16f0a9645822e8d2d7cb99b526bab2326e80f
(vc-bzr-checkout): Simplify.

diff -r 01f16f0a9645 -r c505d070db06 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 03 02:19:23 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 03 02:21:33 2008 +0000
@@ -1,5 +1,7 @@
 2008-04-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* vc-bzr.el (vc-bzr-checkout): Simplify.
+
 	* image-mode.el (image-mode-fit-frame): New command.
 
 	* simple.el (beginning-of-buffer, end-of-buffer, goto-line, undo)
diff -r 01f16f0a9645 -r c505d070db06 lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Thu Apr 03 02:19:23 2008 +0000
+++ b/lisp/vc-bzr.el	Thu Apr 03 02:21:33 2008 +0000
@@ -400,17 +400,10 @@
           (vc-bzr-command "cat" t 0 file "-r" rev)
         (vc-bzr-command "cat" t 0 file))))
 
-(defun vc-bzr-checkout (file &optional editable rev destfile)
-  "Checkout revision REV of FILE from bzr to DESTFILE.
-EDITABLE is ignored."
-  (unless destfile
-    (setq destfile (vc-version-backup-file-name file rev)))
-  (let ((coding-system-for-read 'binary)
-        (coding-system-for-write 'binary))
-    (with-temp-file destfile
-      (if (and rev (stringp rev) (not (string= rev "")))
-          (vc-bzr-command "cat" t 0 file "-r" rev)
-        (vc-bzr-command "cat" t 0 file)))))
+(defun vc-bzr-checkout (file &optional editable rev)
+  (if rev (error "Operation not supported")
+    ;; Else, there's nothing to do.
+    nil))
 
 (defun vc-bzr-revert (file &optional contents-done)
   (unless contents-done
@@ -445,18 +438,18 @@
   (vc-setup-buffer buffer)
   ;; If the buffer exists from a previous invocation it might be
   ;; read-only.
-    ;; FIXME: `vc-bzr-command' runs `bzr log' with `LC_MESSAGES=C', so
-    ;; the log display may not what the user wants - but I see no other
-    ;; way of getting the above regexps working.
-    (dolist (file files)
+  ;; FIXME: `vc-bzr-command' runs `bzr log' with `LC_MESSAGES=C', so
+  ;; the log display may not what the user wants - but I see no other
+  ;; way of getting the above regexps working.
+  (dolist (file files)
     (vc-exec-after
      `(let ((inhibit-read-only t))
-      (with-current-buffer buffer
-	;; Insert the file name so that log-view.el can find it.
+        (with-current-buffer buffer
+          ;; Insert the file name so that log-view.el can find it.
           (insert "Working file: " ',file "\n")) ;; Like RCS/CVS.
         (apply 'vc-bzr-command "log" ',buffer 'async ',file
                ',(if (stringp vc-bzr-log-switches)
-		 (list vc-bzr-log-switches)
+                     (list vc-bzr-log-switches)
                    vc-bzr-log-switches))))))
 
 (defun vc-bzr-show-log-entry (revision)