[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v |
Date: |
Thu, 28 Jun 2007 02:01:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/06/28 02:01:55
Index: vc-bzr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- vc-bzr.el 22 Jun 2007 02:46:04 -0000 1.6
+++ vc-bzr.el 28 Jun 2007 02:01:54 -0000 1.7
@@ -61,6 +61,10 @@
(require 'cl)
(require 'vc)) ; for vc-exec-after
+;; Clear up the cache to force vc-call to check again and discover
+;; new functions when we reload this file.
+(put 'BZR 'vc-functions nil)
+
(defgroup vc-bzr nil
"VC bzr backend."
;; :version "22"
@@ -228,10 +232,12 @@
(eq 'up-to-date (vc-bzr-state file)))
(defun vc-bzr-workfile-version (file)
+ ;; Looks like this could be obtained via counting lines in
+ ;; .bzr/branch/revision-history.
(with-temp-buffer
(vc-bzr-command "revno" t 0 file)
- (goto-char 1)
- (buffer-substring 1 (line-end-position))))
+ (goto-char (point-min))
+ (buffer-substring (point) (line-end-position))))
(defun vc-bzr-checkout-model (file)
'implicit)
@@ -258,7 +264,7 @@
(vc-bzr-command "add" t 0 file "--dry-run")
;; The command succeeds with no output if file is
;; registered (in bzr 0.8).
- (goto-char 1)
+ (goto-char (point-min))
(looking-at "added "))
(error))))
- [Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v, Masatake YAMATO, 2007/06/15
- [Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v, Stefan Monnier, 2007/06/20
- [Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v, Stefan Monnier, 2007/06/20
- [Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v, Dan Nicolaescu, 2007/06/21
- [Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v,
Stefan Monnier <=