From bc9be5449e1127bc1b05a6cad8471c6eba52c8e9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 26 Apr 2022 16:28:54 -0400 Subject: 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. --- lisp/emacs-lisp/cl-print.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/cl-print.el') 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) -- cgit v1.2.3