procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Obsolete XEmacs compat convention in 'erc-button-press-button'

Browse source 
* lisp/erc/erc-button.el (erc-button-press-button): Advertise new
calling convention without XEmacs compatibility.
This commit is contained in:
Stefan Kangas 2021-10-11 09:39:17 -04:00 • committed by Amin Bandali
parent 31d60488ac
commit 36a485a1af
No known key found for this signature in database
GPG key ID: 8B44A0CDC7B956F2
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/erc/erc-button.el
View file

@ -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 () "28.1"))
(interactive)
(let* ((data (get-text-property (point) 'erc-data))
(fun (get-text-property (point) 'erc-callback)))