masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add the missing plist-delete

Browse source
This commit is contained in:
John Wiegley 2017-11-30 18:36:45 -08:00
parent 98ee89a752
commit 9465b915a8
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/use-package/use-package-tests.el
View file

@ -36,6 +36,15 @@
;; `cl-flet' does not work for the mocking we do below, while `flet' does. ;; `cl-flet' does not work for the mocking we do below, while `flet' does.
(eval-when-compile (eval-when-compile
(defun plist-delete (plist property)
"Delete PROPERTY from PLIST"
(let (p)
(while plist
(if (not (eq property (car plist)))
(setq p (plist-put p (car plist) (nth 1 plist))))
(setq plist (cddr plist)))
p))
(setplist 'flet (plist-delete (symbol-plist 'flet) 'byte-obsolete-info))) (setplist 'flet (plist-delete (symbol-plist 'flet) 'byte-obsolete-info)))
(ert-deftest use-package-test-recognize-function () (ert-deftest use-package-test-recognize-function ()