Function: majutsu--append-unique

majutsu--append-unique is a natively compiled function defined in majutsu-base.el.

Signature

(majutsu--append-unique ITEMS ITEM &optional TESTFN)

Documentation

Return ITEMS with ITEM appended unless already present.

TESTFN defaults to equal.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-base.el
(defun majutsu--append-unique (items item &optional testfn)
  "Return ITEMS with ITEM appended unless already present.
TESTFN defaults to `equal'."
  (if (cl-member item items :test (or testfn #'equal))
      items
    (append items (list item))))