emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sweeprolog 9ab910bbfc 2/2: FIXED: additional compatibility


From: ELPA Syncer
Subject: [nongnu] elpa/sweeprolog 9ab910bbfc 2/2: FIXED: additional compatibility issue with buttons
Date: Mon, 17 Oct 2022 11:59:21 -0400 (EDT)

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

    FIXED: additional compatibility issue with buttons
---
 sweeprolog.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 7e2cab54a2..6162a38850 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2938,6 +2938,11 @@ if-then-else constructs in SWI-Prolog."
       (tabulated-list-print))
     (pop-to-buffer-same-window buf)))
 
+(defun sweeprolog--buttonize (string callback data)
+  (if (fboundp 'buttonize)
+      (buttonize string callback data)
+    (button-buttonize string callback data)))
+
 (defun sweeprolog--buttonize-region (start end callback data)
   (if (fboundp 'buttonize-region)
       (buttonize-region start end callback data)
@@ -3029,10 +3034,10 @@ if-then-else constructs in SWI-Prolog."
                           :type   'swi-prolog-module
                           :file   path))
               (if page
-                  (insert (buttonize mod #'sweeprolog-find-module mod)
+                  (insert (sweeprolog--buttonize mod #'sweeprolog-find-module 
mod)
                           " is a SWI-Prolog module.\n\n"
                           page)
-                (insert (buttonize mod #'sweeprolog-find-module mod)
+                (insert (sweeprolog--buttonize mod #'sweeprolog-find-module 
mod)
                         " is an undocumented SWI-Prolog module.")))
           (insert mod " is not documented as a SWI-Prolog module."))))))
 
@@ -3063,7 +3068,7 @@ if-then-else constructs in SWI-Prolog."
                          (list :symbol (intern pred)
                                :type   'swi-prolog-predicate
                                :file   path))
-                   (insert (buttonize pred #'sweeprolog-find-predicate pred)
+                   (insert (sweeprolog--buttonize pred 
#'sweeprolog-find-predicate pred)
                            (if page
                                (concat " is a SWI-Prolog predicate.\n\n"
                                        page)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]