diff options
| author | Štěpán Němec | 2022-08-14 10:23:29 +0200 |
|---|---|---|
| committer | Štěpán Němec | 2022-08-14 10:23:29 +0200 |
| commit | b93e14fa0fd5833adbdd88ec86fccc4b59172302 (patch) | |
| tree | a65b466c147760028f7f007ce28ae89d0ac473e2 | |
| parent | 0df8f481dde9b46c8566db6b432191f374cd578c (diff) | |
| download | emacs-b93e14fa0fd5833adbdd88ec86fccc4b59172302.tar.gz emacs-b93e14fa0fd5833adbdd88ec86fccc4b59172302.zip | |
; advice--interactive-form: Fix a typo introduced in recent change
* lisp/emacs-lisp/nadvice.el (advice--interactive-form): Fix a typo.
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index 86f26fc0d84..a9a20ab5abf 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el | |||
| @@ -170,7 +170,7 @@ DOC is a string where \"FUNCTION\" and \"OLDFUN\" are expected.") | |||
| 170 | (if (not (and (symbolp function) (autoloadp (indirect-function function)))) | 170 | (if (not (and (symbolp function) (autoloadp (indirect-function function)))) |
| 171 | (interactive-form function) | 171 | (interactive-form function) |
| 172 | (when (commandp function) | 172 | (when (commandp function) |
| 173 | `(interactive (advice--eval-interactive-spec | 173 | `(interactive (advice-eval-interactive-spec |
| 174 | (cadr (interactive-form ',function))))))) | 174 | (cadr (interactive-form ',function))))))) |
| 175 | 175 | ||
| 176 | (defun advice--make-interactive-form (iff ifm) | 176 | (defun advice--make-interactive-form (iff ifm) |