Function: ido-find-common-substring

ido-find-common-substring is a byte-compiled function defined in ido.el.gz.

Signature

(ido-find-common-substring ITEMS SUBS)

Documentation

Return common string following SUBS in each element of ITEMS.

Source Code

;; Defined in /usr/src/emacs/lisp/ido.el.gz
(defun ido-find-common-substring (items subs)
  "Return common string following SUBS in each element of ITEMS."
  (let (res
        alist
        ido-change-word-sub)
    (setq ido-change-word-sub
          (if ido-enable-regexp
              subs
            (regexp-quote subs)))
    (setq res (mapcar #'ido-word-matching-substring items))
    (setq res (delq nil res)) ;; remove any nil elements (shouldn't happen)
    (setq alist (mapcar #'ido-makealist res)) ;; could use an  OBARRAY

    ;; try-completion returns t if there is an exact match.
    (let* ((completion-ignore-case ido-case-fold)
	   (comp (try-completion subs alist)))
      (if (eq comp t)
	  subs
	comp))))