From: NeilBrown <neil@brown.name>
Date: Tue, 8 Dec 2015 01:54:17 +0000 (+1100)
Subject: Unify calls to doc:dup-point.
X-Git-Tag: lca2016~108
X-Git-Url: http://git.neil.brown.name/?a=commitdiff_plain;h=6d1526784ae6dd4915e24cc8216dafbe0933d6ee;p=edlib.git

Unify calls to doc:dup-point.

All these calls can use mark_to_point - so do that.

Signed-off-by: NeilBrown <neil@brown.name>
---

diff --git a/emacs-search.c b/emacs-search.c
index b0c54055..8e5e73ba 100644
--- a/emacs-search.c
+++ b/emacs-search.c
@@ -267,7 +267,7 @@ DEF_CMD(emacs_search)
 		return -1;
 	esi = malloc(sizeof(*esi));
 	esi->target = p;
-	m = call_mark("doc:dup-point", p, 0, NULL, MARK_POINT);
+	m = mark_at_point(p, NULL, MARK_POINT);
 	if (!m) {
 		free(esi);
 		return -1;
diff --git a/mode-emacs.c b/mode-emacs.c
index ca787d19..196be69b 100644
--- a/mode-emacs.c
+++ b/mode-emacs.c
@@ -544,7 +544,7 @@ DEF_CMD(emacs_search)
 	if (!ci->str || !ci->str[0])
 		return -1;
 
-	m = call_mark("doc:dup-point", ci->home, 0, NULL, MARK_UNGROUPED);
+	m = mark_at_point(ci->home, NULL, MARK_UNGROUPED);
 
 	ci2.key = "global-set-attr";
 	ci2.str = "Search String";
diff --git a/render-complete.c b/render-complete.c
index 2405f21d..74f82ee7 100644
--- a/render-complete.c
+++ b/render-complete.c
@@ -237,7 +237,7 @@ DEF_CMD(complete_set_prefix)
 	free(cd->prefix);
 	cd->prefix = strdup(ci->str);
 
-	m = call_mark("doc:dup-point", ci->home, 0, NULL, MARK_UNGROUPED);
+	m = mark_at_point(ci->home, NULL, MARK_UNGROUPED);
 	call3("Move-File", ci->home, 1, m);
 
 	ci2.key = "render-line-prev";