[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog 449f252b78 2/2: sweeprolog-describe-predicate c
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sweeprolog 449f252b78 2/2: sweeprolog-describe-predicate compatibility with Emacs 27 |
Date: |
Mon, 17 Oct 2022 12:59:21 -0400 (EDT) |
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)