Function: viper-prefix-subseq-p

viper-prefix-subseq-p is a byte-compiled function defined in viper-macs.el.gz.

Signature

(viper-prefix-subseq-p SEQ1 SEQ2)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-macs.el.gz
;; whether SEQ1 is a prefix of SEQ2
(defun viper-prefix-subseq-p (seq1 seq2)
  (let ((len1 (length seq1))
	(len2 (length seq2)))
    (if (<= len1 len2)
        (equal seq1 (cl-subseq seq2 0 len1)))))