diff --git a/lisp/lib/rb-hack.el b/lisp/lib/rb-hack.el new file mode 100644 index 0000000..8a909b3 --- /dev/null +++ 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