master 03a8d132b0e: Fix an oversight in advice.el

[Michael Heerdegen]

branch: master
commit 03a8d132b0e0fe318cc37381a67c1f9a8e82eab3
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    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)