[magnars#200] Define setters for -first-item and -last-item

emacsmirror · Nov 8, 2016 · bcc74b5 · bcc74b5
1 parent 53e641c
commit bcc74b5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/dash.el b/dash.el
@@ -578,11 +578,15 @@ Alias: `-any'"
 
 \(fn LIST)")
 
+(gv-define-simple-setter -first-item setcar)
+
 (defun -last-item (list)
   "Return the last item of LIST, or nil on an empty list."
   (declare (pure t) (side-effect-free t))
   (car (last list)))
 
+(gv-define-setter -last-item (val x) `(setcar (last ,x) ,val))
+
 (defun -butlast (list)
   "Return a list of all items in list except for the last."
   ;; no alias as we don't want magic optional argument