From: Daniel Mendler <mail@daniel-mendler.de>
Date: Sun, 19 Dec 2021 13:21:50 +0000 (+0100)
Subject: Add a new elp-restore-package command
X-Git-Tag: emacs-29.0.90~3577^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9d38059d193699c2ae6cdf69341f5aa62e87781;p=emacs.git

Add a new elp-restore-package command

* lisp/emacs-lisp/elp.el (elp-restore-package): New command
(bug#52457).
---

diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index dce8478d2e3..fdd0ad6666e 100644
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -298,6 +298,14 @@ For example, to instrument all ELP functions, do the following:
     'intern
     (all-completions prefix obarray 'elp-profilable-p))))
 
+(defun elp-restore-package (prefix)
+  "Remove instrumentation from functions with names starting with PREFIX."
+  (interactive "SPrefix: ")
+  (elp-restore-list
+   (mapcar #'intern
+           (all-completions (symbol-name prefix)
+                            obarray 'elp-profilable-p))))
+
 (defun elp-restore-list (&optional list)
   "Restore the original definitions for all functions in `elp-function-list'.
 Use optional LIST if provided instead."