From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Wed, 18 Jan 2023 11:32:05 +0000 (+0100)
Subject: Fix an oversight in advice.el
X-Git-Tag: emacs-29.0.90~661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1;p=emacs.git

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

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)