diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2023-01-18 12:32:05 +0100 |
|---|---|---|
| committer | Michael Heerdegen <michael_heerdegen@web.de> | 2023-01-19 16:31:50 +0100 |
| commit | 03a8d132b0e0fe318cc37381a67c1f9a8e82eab3 (patch) | |
| tree | e0bfb58bd8d23ecc78071e71bfaaa50b0bb807bd /lisp/emacs-lisp | |
| parent | 9161a302c9f9fbfa1a8f33181bb332d2c5df3aa7 (diff) | |
| download | emacs-03a8d132b0e0fe318cc37381a67c1f9a8e82eab3.tar.gz emacs-03a8d132b0e0fe318cc37381a67c1f9a8e82eab3.tar.bz2 emacs-03a8d132b0e0fe318cc37381a67c1f9a8e82eab3.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) |