Mercurial > emacs

comparison lisp/vc-bzr.el @ 94563:a0bb8ca25a33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up vc*-revision-granularity and vc*-checkout-model.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Fri, 02 May 2008 17:47:25 +0000
parents fee32a11924d
children ee5932bf781d
comparison
equal deleted inserted replaced
94562:46f178f2b009 94563:a0bb8ca25a33
42 ;; See https://bugs.launchpad.net/vc-bzr/+bug/116607 42 ;; See https://bugs.launchpad.net/vc-bzr/+bug/116607
43 43
44 ;; For an up-to-date list of bugs, please see: 44 ;; For an up-to-date list of bugs, please see:
45 ;; https://bugs.launchpad.net/vc-bzr/+bugs 45 ;; https://bugs.launchpad.net/vc-bzr/+bugs
46 46
47 ;;; Properties of the backend
48
49 (defun vc-bzr-revision-granularity () 'repository)
50 (defun vc-bzr-checkout-model (files) 'implicit)
47 51
48 ;;; Code: 52 ;;; Code:
49 53
50 (eval-when-compile 54 (eval-when-compile
51 (require 'cl) 55 (require 'cl)
343 (exitcode (car result)) 347 (exitcode (car result))
344 (output (cdr result))) 348 (output (cdr result)))
345 (cond 349 (cond
346 ((eq exitcode 0) (substring output 0 -1)) 350 ((eq exitcode 0) (substring output 0 -1))
347 (t nil)))))) 351 (t nil))))))
348
349 (defun vc-bzr-checkout-model (files) 'implicit)
350 352
351 (defun vc-bzr-create-repo () 353 (defun vc-bzr-create-repo ()
352 "Create a new Bzr repository." 354 "Create a new Bzr repository."
353 (vc-bzr-command "init" nil 0 nil)) 355 (vc-bzr-command "init" nil 0 nil))
354 356