From: John Wiegley <johnw@newartisans.com>
Date: Fri, 1 Dec 2017 02:36:45 +0000 (-0800)
Subject: Add the missing plist-delete
X-Git-Tag: emacs-29.0.90~1306^2~15^2~213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9465b915a8;p=emacs.git

Add the missing plist-delete
---

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 ()