diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-28 12:02:01 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-28 12:02:01 -0400 |
commit | bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe (patch) | |
tree | 3ca8b55d994ad39e94fd972b02e6d7d539339c25 /lisp/loadhist.el | |
parent | b2225a374f24f1ee1a881bfd5d3c1f7b57447e47 (diff) | |
download | emacs-bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe.tar.gz |
* lisp/subr.el (define-symbol-prop): New function
(symbol-file): Make it find symbol property definitions.
* lisp/emacs-lisp/pcase.el (pcase-defmacro):
* lisp/emacs-lisp/ert.el (ert-set-test): Use it instead of `put'.
(ert-describe-test): Adjust call to symbol-file accordingly.
Diffstat (limited to 'lisp/loadhist.el')
-rw-r--r-- | lisp/loadhist.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index b83d023ccf8..18c30f781f0 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -221,6 +221,11 @@ restore a previous autoload if possible.") ;; Remove the struct. (setf (cl--find-class name) nil))) +(cl-defmethod loadhist-unload-element ((x (head define-symbol-props))) + (pcase-dolist (`(,symbol . ,props) (cdr x)) + (dolist (prop props) + (put symbol prop nil)))) + ;;;###autoload (defun unload-feature (feature &optional force) "Unload the library that provided FEATURE. |