Function: cvs-is-within-p

cvs-is-within-p is a byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-is-within-p FIS DIR)

Documentation

Non-nil if buffer is inside one of FIS (in DIR).

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun cvs-is-within-p (fis dir)
  "Non-nil if buffer is inside one of FIS (in DIR)."
  (when (stringp buffer-file-name)
    (setq buffer-file-name (expand-file-name buffer-file-name))
    (let (ret)
      (dolist (fi (or fis (list (cvs-create-fileinfo 'DIRCHANGE "" "." ""))))
	(when (string-prefix-p
	       (expand-file-name (cvs-fileinfo->full-name fi) dir)
	       buffer-file-name)
	  (setq ret t)))
      ret)))