How can I make `setf` work with `plist-get`?

Question

There's no built-in setter for plist-get. Example:

(let ((pl '(:what (one))))
  (push 'two (plist-get pl :what))
  pl)

Error: let*: Symbol’s function definition is void: \(setf\ plist-get\)

How can I make setf work with plist-get?

Good question, and good answer @wasamasa. – Drew Jun 28 '20 at 15:59 — Drew, Jun 28 '20 at 15:59

score 6 · Accepted Answer · answered Jun 28 '20 at 12:06

6

It's trivial to define your own:

(gv-define-simple-setter plist-get plist-put)

(let ((pl '(:what (one))))
  (push 'two (plist-get pl :what))
  pl) ; => (:what (two one))

You can find more examples in gv.el.

answered Jun 28 '20 at 12:06

wasamasa

1 Answers1