Function: viper-do-sequence-completion

viper-do-sequence-completion is a byte-compiled function defined in viper-macs.el.gz.

Signature

(viper-do-sequence-completion SEQ ALIST COMPL-MESSAGE)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-macs.el.gz
(defun viper-do-sequence-completion (seq alist compl-message)
  (let* ((matches (viper-extract-matching-alist-members seq alist))
	 (new-seq (apply #'viper-common-seq-prefix matches))
	 )
    (cond ((and (equal seq new-seq) (= (length matches) 1))
	   (message "%s (Sole completion)" compl-message)
	   (sit-for 2))
	  ((null matches)
	   (message "%s (No match)" compl-message)
	   (sit-for 2)
	   (setq new-seq seq))
	  ((member seq matches)
	   (message "%s (Complete, but not unique)" compl-message)
	   (sit-for 2)
	   (viper-display-vector-completions matches))
	  ((equal seq new-seq)
	   (viper-display-vector-completions matches)))
    new-seq))