Function: strokes-eliminate-consecutive-redundancies

strokes-eliminate-consecutive-redundancies is a byte-compiled function defined in strokes.el.gz.

Signature

(strokes-eliminate-consecutive-redundancies ENTRIES)

Documentation

Return a list with no consecutive redundant entries.

Source Code

;; Defined in /usr/src/emacs/lisp/strokes.el.gz
(defun strokes-eliminate-consecutive-redundancies (entries)
  "Return a list with no consecutive redundant entries."
  ;; defun a grande vitesse grace a Dave G.
  (cl-loop for element on entries
           if (not (equal (car element) (cadr element)))
           collect (car element)))