--- a/contrib/mercurial.el Thu Oct 11 06:01:30 2007 +0900
+++ b/contrib/mercurial.el Thu Oct 11 06:10:45 2007 +0900
@@ -666,7 +666,11 @@
to have moved a little, but not really changed."
(let ((point-context (hg-position-context (point)))
(mark-context (let ((mark (mark-marker)))
- (and mark (hg-position-context mark)))))
+ (and mark
+ ;; make sure active mark
+ (marker-buffer mark)
+ (marker-position mark)
+ (hg-position-context mark)))))
(list point-context mark-context)))
(defun hg-find-context (ctx)