From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 8 Oct 2021 18:25:52 +0000 (+0200)
Subject: Obsolete XEmacs compat convention in erc-button-press-button
X-Git-Tag: emacs-29.0.90~3671^2~621^2~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f146325bd1556d1acafe26f6c263b83a92d3cd20;p=emacs.git

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.
---

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)))