From 4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Wed, 18 Jan 2023 12:32:05 +0100 Subject: [PATCH] Fix an oversight in advice.el This fixes an oversight from 77c3c464a16: "* 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'. --- lisp/emacs-lisp/advice.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 080a6d84498..56f0ae2212c 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -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) -- 2.39.2