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

Fix an oversight in advice.el

Browse source 
This fixes an oversight from 77c3c464a1: "* lisp/emacs-lisp/advice.el
(ad-advised-functions): Make it a plain list" that caused an issue as
reported in Bug#60893.
* lisp/emacs-lisp/advice.el (ad-read-advised-function): Adjust to
handle the new type of elements of `ad-advised-functions'.
This commit is contained in:
Michael Heerdegen 2023-01-18 12:32:05 +01:00 • committed by Eli Zaretskii
parent 78b83a744f
commit 4fb7b0b0b8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/advice.el
View file

@ -1850,7 +1850,7 @@ function at point for which PREDICATE returns non-nil)."
ad-advised-functions
(if predicate
(lambda (function)
(funcall predicate (intern (car function)))))
(funcall predicate (intern function))))
t)))
(if (equal function "")
(if (ad-is-advised default)