Function: erc-unique-substring-1

erc-unique-substring-1 is a byte-compiled function defined in erc-track.el.gz.

Signature

(erc-unique-substring-1 CANDIDATE OTHERS)

Documentation

Return non-nil when any string in OTHERS starts with CANDIDATE.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-track.el.gz
(defun erc-unique-substring-1 (candidate others)
  "Return non-nil when any string in OTHERS starts with CANDIDATE."
  (let (result other (maxlen (length candidate)))
    (while (and others
		(not result))
      (setq other (car others)
	    others (cdr others))
      (when (and (>= (length other) maxlen)
		 (string= candidate (substring other 0 maxlen)))
	(setq result other)))
    result))