diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-19 14:20:15 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-12-19 14:22:27 +0100 |
| commit | 25d80456084e25c6d8b6cdcac21b2122f4ad26f0 (patch) | |
| tree | 6f31d15a5db565b929f67f06ef6bb067fe612c55 | |
| parent | d745f4b6a0944778c495cd13e11fe096a9bd56f7 (diff) | |
| download | emacs-25d80456084e25c6d8b6cdcac21b2122f4ad26f0.tar.gz | |
Fix elp-*-list interactive specs
* lisp/emacs-lisp/elp.el (elp-reset-list):
(elp-restore-list): Fix the interactive specs (bug#52457).
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index fde7947a273..dce8478d2e3 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -301,7 +301,7 @@ For example, to instrument all ELP functions, do the following: (defun elp-restore-list (&optional list) "Restore the original definitions for all functions in `elp-function-list'. Use optional LIST if provided instead." - (interactive "PList of functions to restore: ") ;FIXME: Doesn't work!? + (interactive) (mapcar #'elp-restore-function (or list elp-function-list))) (defun elp-restore-all () @@ -323,7 +323,7 @@ Use optional LIST if provided instead." (defun elp-reset-list (&optional list) "Reset the profiling information for all functions in `elp-function-list'. Use optional LIST if provided instead." - (interactive "PList of functions to reset: ") ;FIXME: Doesn't work!? + (interactive) (let ((list (or list elp-function-list))) (mapcar 'elp-reset-function list))) |