From f146325bd1556d1acafe26f6c263b83a92d3cd20 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 8 Oct 2021 20:25:52 +0200 Subject: [PATCH] Obsolete XEmacs compat convention in erc-button-press-button * lisp/erc/erc-button.el (erc-button-press-button): Advertise new calling convention without XEmacs compatibility. --- lisp/erc/erc-button.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 17d5b6129dd..2c1d7000e99 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el @@ -389,12 +389,11 @@ REGEXP is the regular expression which matched for this button." (mouse-set-point event) (erc-button-press-button))) -;; XEmacs calls this via widget-button-press with a bunch of arguments -;; which we don't care about. (defun erc-button-press-button (&rest _ignore) "Check text at point for a callback function. If the text at point has a `erc-callback' property, call it with the value of the `erc-data' text property." + (declare (advertised-calling-convention () "29.1")) (interactive) (let* ((data (get-text-property (point) 'erc-data)) (fun (get-text-property (point) 'erc-callback))) -- 2.39.2