From 449f252b781a82984ca2430fb790b60d84af2e7e Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 17 Oct 2022 19:53:06 +0300 Subject: [PATCH] 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 54472e7..4699803 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 f2d87f3..4d32647 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) -- 2.39.5