mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-04 19:29:37 +00:00
Add the missing plist-delete
This commit is contained in:
parent
98ee89a752
commit
9465b915a8
1 changed files with 9 additions and 0 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue