[nongnu] elpa/sweeprolog 0e575f97bb 4/6: FIXED: sweep_identifier_at_point/2: possible infinite failure loop

[ELPA Syncer]

branch: elpa/sweeprolog
commit 0e575f97bbb91d61f64ce9d785dcb044b7216d91
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    FIXED: sweep_identifier_at_point/2: possible infinite failure loop
---
 sweep.pl      |  1 +
 sweeprolog.el | 10 +++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 3a9667b990..73dd6682b7 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -235,6 +235,7 @@ sweep_identifier_at_point_(Path0, Point, Contents, 
Identifier) :-
     prolog_colourise_term(Contents, Path,
                           sweep_handle_identifier_at_point(Path, M, Point),
                           []),
+    !,
     sweep_current_identifier_at_point(Identifier0),
     term_string(Identifier0, Identifier).
 
diff --git a/sweeprolog.el b/sweeprolog.el
index 190498143c..6e25e55af4 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2505,11 +2505,11 @@ Interactively, POINT is set to the current point."
                 (point)))
          (contents (buffer-substring-no-properties beg end)))
     (sweeprolog-open-query "user"
-                      "sweep"
-                      "sweep_identifier_at_point"
-                      (list contents
-                            (buffer-file-name)
-                            (- p beg)))
+                           "sweep"
+                           "sweep_identifier_at_point"
+                           (list contents
+                                 (buffer-file-name)
+                                 (- p beg)))
     (let ((sol (sweeprolog-next-solution)))
       (sweeprolog-close-query)
       (when (sweeprolog-true-p sol)