diff options
| author | Vincent Ambo <tazjin@tvl.su> | 2023-08-28T19·20+0300 |
|---|---|---|
| committer | tazjin <tazjin@tvl.su> | 2023-08-28T19·40+0000 |
| commit | 690f73074cbe7b5fe498162c6d0b65576c103e08 (patch) | |
| tree | 10811427048653039403cf0983a8d827b10c117f | |
| parent | c9034186df9e9bc41f39a7ee43861154f57e3a27 (diff) | |
feat(tazjin/emacs): add occasionally useful advice-remove-all helper r/6531
Change-Id: I66981e8bec300dff48d7a549f2d2847c637a4557 Reviewed-on: https://cl.tvl.fyi/c/depot/+/9160 Tested-by: BuildkiteCI Reviewed-by: tazjin <tazjin@tvl.su>
| -rw-r--r-- | users/tazjin/emacs/config/functions.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index 6e2cff7cae..df36c7eb88 100644 --- a/users/tazjin/emacs/config/functions.el +++ b/users/tazjin/emacs/config/functions.el @@ -349,4 +349,9 @@ installed (and visible) XDG apps, and let users launch them." (run-external-command--handler (cdr (assoc (completing-read "App: " apps nil t) apps))))) +(defun advice-remove-all (sym) + "Remove all advices from symbol SYM." + (interactive "aFunction symbol: ") + (advice-mapc (lambda (advice _props) (advice-remove sym advice)) sym)) + (provide 'functions) |