From 9465b915a84a330665e6e2334a8c9635f68caa5e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 18:36:45 -0800 Subject: [PATCH] Add the missing plist-delete --- test/lisp/use-package/use-package-tests.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 29a0b99512e..43ecb316aca 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -36,6 +36,15 @@ ;; `cl-flet' does not work for the mocking we do below, while `flet' does. (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))) (ert-deftest use-package-test-recognize-function () -- 2.39.2