From d3093beba4ca7f1818b4c6e4b8f30ec740673b5f Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 20 Jan 2025 08:54:46 +0100 Subject: [PATCH] (loadhist-unload-element): Implement also for 'define-widget' --- lisp/loadhist.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 1a6f434561e..a6a6f8fb2cf 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -225,6 +225,11 @@ unloading." (dolist (prop props) (put symbol prop nil)))) +(cl-defmethod loadhist-unload-element ((x (head define-widget))) + (let ((name (cdr x))) + (put name 'widget-type nil) + (put name 'widget-documentation nil))) + ;;;###autoload (defun unload-feature (feature &optional force) "Unload the library that provided FEATURE. -- 2.39.5