[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 4fb7b0b0b88: Fix an oversight in advice.el
From: |
Eli Zaretskii |
Subject: |
emacs-29 4fb7b0b0b88: Fix an oversight in advice.el |
Date: |
Thu, 19 Jan 2023 15:15:59 -0500 (EST) |
branch: emacs-29
commit 4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Eli Zaretskii <eliz@gnu.org>
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 4fb7b0b0b88: Fix an oversight in advice.el,
Eli Zaretskii <=