[nongnu] elpa/sweeprolog 449f252b78 2/2: sweeprolog-describe-predicate compatibility with Emacs 27

[ELPA Syncer]

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

    sweeprolog-describe-predicate compatibility with Emacs 27
---
 sweep.pl      |  2 +-
 sweeprolog.el | 11 ++++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 54472e7ea6..4699803c66 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -320,7 +320,7 @@ sweep_handle_identifier_at_point_goal(_Path, _M0, 
undefined, M:Goal) :-
 sweep_handle_identifier_at_point_goal(_Path, _M0, undefined, Goal) :-
     !,
     pi_head(PI, Goal),
-    asserta(sweep_current_identifier_at_point(undefined:PI)).
+    asserta(sweep_current_identifier_at_point(PI)).
 sweep_handle_identifier_at_point_goal(_Path, _M0, meta, _:Goal) :-
     !,
     pi_head(PI, Goal),
diff --git a/sweeprolog.el b/sweeprolog.el
index f2d87f3681..4d326472f0 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2944,7 +2944,16 @@ if-then-else constructs in SWI-Prolog."
 (defun sweeprolog--buttonize (string callback data)
   (if (fboundp 'buttonize)
       (buttonize string callback data)
-    (button-buttonize string callback data)))
+    (if (fboundp 'button-buttonize)
+        (button-buttonize string callback data)
+      (propertize string
+                  'face 'button
+                  'button t
+                  'follow-link t
+                  'category t
+                  'button-data data
+                  'keymap button-map
+                  'action callback))))
 
 (defun sweeprolog--buttonize-region (start end callback data)
   (if (fboundp 'buttonize-region)