Please change the Subject header to a concise description of your patch.
Please describe your patch between the LOG-START and LOG-END markers:
<<LOG-START>>
<<LOG-END>>
[VERSION] dvc-dev-bzr
bzr (bazaar-ng) 0.9.0dev0
Emacs : GNU Emacs 22.0.50.2 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2006-05-15 on PCHAGSREI
=== modified file 'lisp/bzr-dvc.el'
--- lisp/bzr-dvc.el 2006-06-19 19:19:07 +0000
+++ lisp/bzr-dvc.el 2006-06-21 10:41:43 +0000
@@ -71,6 +71,10 @@
(defalias 'bzr-dvc-changelog 'bzr-changelog)
+(defun bzr-dvc-update ()
+ (interactive)
+ (bzr-update nil))
+
(defun bzr-dvc-edit-ignore-files ()
(interactive)
(find-file-other-window (concat (bzr-tree-root) ".bzrignore")))
=== modified file 'lisp/bzr.el'
--- lisp/bzr.el 2006-06-19 19:37:25 +0000
+++ lisp/bzr.el 2006-06-21 10:42:46 +0000
@@ -109,16 +109,19 @@
branch-location to-location))
(dired to-location))))
-(defun bzr-update ()
+;;;###autoload
+(defun bzr-update (&optional path)
"Run bzr update."
(interactive)
- (dvc-run-dvc-async 'bzr (list "update")
+ (unless path
+ (setq path default-directory))
+ (dvc-run-dvc-async 'bzr (list "update" path)
:finished
(dvc-capturing-lambda
(output error status arguments)
(message (format "bzr update finished => %s"
(concat (dvc-buffer-content error) (dvc-buffer-content output)))))))
-
+
;; bzr-start-project implements the following idea:
;; bzr init-repo repo
=== modified file 'lisp/dvc-ui.el'
--- lisp/dvc-ui.el 2006-06-19 19:19:07 +0000
+++ lisp/dvc-ui.el 2006-06-21 10:37:52 +0000
@@ -310,7 +310,7 @@
;; dvc: l runs changelog, M-l runs tree-lint for Arch
(define-key map [?l] 'dvc-changelog)
(define-key map [(meta ?l)] 'tla-tree-lint)
- (define-key map dvc-keyvec-update 'tla-update)
+ (define-key map dvc-keyvec-update 'dvc-update)
(define-key map [?m] 'dvc-missing)
(define-key map dvc-keyvec-show-bookmark 'tla-bookmarks)
(define-key map dvc-keyvec-help 'tla-help)
=== modified file 'lisp/tla-dvc.el'
--- lisp/tla-dvc.el 2006-06-19 19:19:07 +0000
+++ lisp/tla-dvc.el 2006-06-21 10:39:56 +0000
@@ -57,6 +57,8 @@
(defalias 'tla-dvc-submit-patch 'tla-submit-patch)
+(defalias 'tla-dvc-update 'tla-update)
+
(defalias 'tla-dvc-log-edit 'tla-edit-log)
(defun tla-dvc-add (file)
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
