Unadvice utility for debugging.

regob · Jan 20, 2025 · 8fc139c · 8fc139c
1 parent b6d185d
commit 8fc139c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/lisp/lib/rb-hack.el b/lisp/lib/rb-hack.el
@@ -0,0 +1,13 @@
+;;; rb-hack.el --- Utilities for hacking/debugging -*- lexical-binding: t -*-
+;;; Commentary:
+;;; Code:
+
+;; By @xuchunyang https://emacs.stackexchange.com/a/24658/38136
+(defun rb-advice-unadvice (sym)
+  "Remove all advices from symbol SYM."
+  (interactive "aFunction symbol: ")
+  (advice-mapc (lambda (advice _props) (advice-remove sym advice)) sym))
+
+(provide 'rb-hack)
+
+;;; rb-hack.el ends here