workgroups2 Changeset - 176be211c59a

Changeset - 176be211c59a

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-23 13:47:48
sergey@pashinin.com

Removed wg-leave

1 file changed with 0 insertions and 4 deletions:

src/workgroups-utils-basic.el

0 comments (0 inline, 0 general)

src/workgroups-utils-basic.el

➞

Show inline comments

       (length (cl-pushnew ,item ,seq-place ,@keys))))
 (defun wg-take (list n)
   "Return a list of the first N elts in LIST."
   (butlast list (- (length list) n)))
 (defun wg-leave (list n)
   "Return a list of the last N elts in LIST."
   (nthcdr (- (length list) n) list))
 (defun wg-rnth (n list)
   "Return the Nth element of LIST, counting from the end."
   (nth (- (length list) n 1) list))
 (defun wg-take-until-fail (pred list)
   "Take elements from LIST up to the first element on which PRED fails."

0 comments (0 inline, 0 general)