Mercurial > hg
changeset 5467:521284cdbcb4
mercurial.el: mark-marker() returns non-nil with no active mark on GNU Emacs
author | NIIMI Satoshi <sa2c@sa2c.net> |
---|---|
date | Thu, 11 Oct 2007 06:10:45 +0900 |
parents | 87860c62e003 |
children | 24eb1bf8dd83 |
files | contrib/mercurial.el |
diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)