diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-04-26 16:28:54 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-04-26 17:36:13 -0400 |
| commit | bc9be5449e1127bc1b05a6cad8471c6eba52c8e9 (patch) | |
| tree | aa5769b3c15225e740dbffc090d8bbe5bcd4b1fd /lisp/emacs-lisp/cl-print.el | |
| parent | 4dba7c31a225950198482fe1eb558aac7a36d964 (diff) | |
| download | emacs-bc9be5449e1127bc1b05a6cad8471c6eba52c8e9.tar.gz emacs-bc9be5449e1127bc1b05a6cad8471c6eba52c8e9.tar.bz2 emacs-bc9be5449e1127bc1b05a6cad8471c6eba52c8e9.zip | |
nadvice.el: Rename "where" to "how"
* lisp/emacs-lisp/nadvice.el (advice--how-alist): Rename from
`advice--where-alist`.
(advice--how): Rename from `advice--where` and keep obsolete alias.
(add-function, advice-add): Rename `where` arg to `how`.
* lisp/emacs-lisp/cl-print.el (cl-print-object): Use `advice--how` name.
Diffstat (limited to 'lisp/emacs-lisp/cl-print.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el index eaf2532da39..457ef506bc6 100644 --- a/lisp/emacs-lisp/cl-print.el +++ b/lisp/emacs-lisp/cl-print.el @@ -230,8 +230,8 @@ into a button whose action shows the function's disassembly.") (if (not (advice--p object)) (cl-call-next-method) (princ "#f(advice-wrapper " stream) - (when (fboundp 'advice--where) - (princ (advice--where object) stream) + (when (fboundp 'advice--how) + (princ (advice--how object) stream) (princ " " stream)) (cl-print-object (advice--cdr object) stream) (princ " " stream) |