[Emacs-diffs] Changes to emacs/lisp/vc-bzr.el,v

[Masatake YAMATO]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Masatake YAMATO <jet>   07/06/15 19:40:49

Index: vc-bzr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- vc-bzr.el   11 Jun 2007 20:00:35 -0000      1.2
+++ vc-bzr.el   15 Jun 2007 19:40:47 -0000      1.3
@@ -463,8 +463,12 @@
 ;; if there are any symbolic links.
 (defun vc-bzr-root (dir)
   "Return the root directory of the bzr repository containing DIR."
+  ;; Cache technique copied from vc-arch.el.
+  (or (vc-file-getprop dir 'bzr-root)
+      (vc-file-setprop
+       dir 'bzr-root
   (substring 
-   (shell-command-to-string (concat vc-bzr-program " root " dir)) 0 -1))
+       (shell-command-to-string (concat vc-bzr-program " root " dir)) 0 -1))))
 
 ;; TODO: it would be nice to mark the conflicted files in  VC Dired,
 ;; and implement a command to run ediff and `bzr resolve' once the