New revision in http://www-verimag.imag.fr/~moy/bzr/dvc/moy/
------------------------------------------------------------
revno: 561
revision-id: [email protected]
parent: [email protected]
committer: Matthieu Moy <[email protected]>
branch nick: moy
timestamp: Fri 2009-08-21 10:47:03 +0200
message:
xgit-show: (bugfix) consider the case where `thing-at-point' returns null.
=== modified file 'lisp/xgit.el'
--- a/lisp/xgit.el 2009-08-20 15:22:57 +0000
+++ b/lisp/xgit.el 2009-08-21 08:47:03 +0000
@@ -633,8 +633,9 @@
(read-string "Revision: "
(let ((candidate (thing-at-point
'word)))
- (when (string-match "[0-9a-f]"
- candidate)
+ (when (and candidate
+ (string-match "[0-9a-f]"
+ candidate))
candidate)))))
(if (and (null files) xgit-show-filter-filename-func)
(setq files (funcall xgit-show-filter-filename-func
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
