New revision in http://www-verimag.imag.fr/~moy/bzr/dvc/moy/
------------------------------------------------------------
revno: 560
revision-id: [email protected]
parent: [email protected]
committer: Matthieu Moy <[email protected]>
branch nick: moy
timestamp: Thu 2009-08-20 17:22:57 +0200
message:
xgit-show: take the thing-at-point as a default argument.
=== modified file 'lisp/xgit.el'
--- a/lisp/xgit.el 2009-04-02 18:47:04 +0000
+++ b/lisp/xgit.el 2009-08-20 15:22:57 +0000
@@ -629,7 +629,13 @@
If FILES is nil and `xgit-show-filter-filename-func' is non-nil,
files changed in the revision is passed to
`xgit-show-filter-filename-func' and result is used."
- (interactive (list default-directory (read-string "Revision: ")))
+ (interactive (list default-directory
+ (read-string "Revision: "
+ (let ((candidate (thing-at-point
+ 'word)))
+ (when (string-match "[0-9a-f]"
+ candidate)
+ candidate)))))
(if (and (null files) xgit-show-filter-filename-func)
(setq files (funcall xgit-show-filter-filename-func
(xgit-changed-files dir rev))))
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
