Function: member-cis

member-cis is a byte-compiled function defined in bib-cite.el.

Signature

(member-cis ELT LIST)

Documentation

Return non-nil if ELT is an element of LIST.

All elements should be strings. Comparison is case-insensitive.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/bib-cite.el
;; Following contributed by Michael Steiner <steiner@cs.uni-sb.de> The
;;  @string abbreviation are not case-sensitive, so we replaced the `member'
;;  test above with `member-cis' defined here:
(defun member-cis (ELT LIST)
  "Return non-nil if ELT is an element of LIST.
All elements should be strings.
Comparison is case-insensitive."
  ;; If list is exhausted,
  (if (null LIST)
      nil ;; if null then we haven't found the element ...
    ;; else split list and ...
    (let((listelt (car LIST))(listrest (cdr LIST)))
      ;; see if car is equal to ELT
      (if (string-equal (downcase ELT) (downcase listelt))
          t ;; if so return true
        ;; else recurse for rest of list
        (member-cis ELT listrest)))))