Function: hif-keep-single

hif-keep-single is a byte-compiled function defined in hideif.el.gz.

Signature

(hif-keep-single L E)

Documentation

Prevent two or more consecutive E in list L.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/hideif.el.gz
(defun hif-keep-single (l e)
  "Prevent two or more consecutive E in list L."
  (if (memq e l)
      (let (prev curr result)
        (while (progn
                 (setq prev curr
                       curr (car l)
                       l (cdr l))
                 curr)
          (unless (and (eq prev e)
                       (eq curr e))
            (push curr result)))
        (nreverse result))
    l))