diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2023-01-18 12:32:05 +0100 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-01-19 22:13:25 +0200 |
| commit | 4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1 (patch) | |
| tree | 17204af6272f4e4f44a1ca9669ca8865d1730b60 /lisp/emacs-lisp | |
| parent | 78b83a744fa28abb3bb631e2688c19bd68896425 (diff) | |
| download | emacs-4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1.tar.gz emacs-4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1.tar.bz2 emacs-4fb7b0b0b889a317b4a98cce24ed08d5eadc2df1.zip | |
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'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |