sweeprolog-describe-predicate compatibility with Emacs 27

diff --git a/sweep.pl b/sweep.pl
index 54472e7ea6689b232241103c38102822bc6233ce..4699803c6661a27a19919bb711094878a22559ba 100644 (file)
--- 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 f2d87f36818fb874fb728448d135857f14cb53e9..4d326472f04e070058d77ebbe0952efd8604f66d 100644 (file)
--- 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)