Function: pcmpl-cvs-tags

pcmpl-cvs-tags is a byte-compiled function defined in pcmpl-cvs.el.gz.

Signature

(pcmpl-cvs-tags &optional OPERS)

Documentation

Return all the tags which could apply to the files related to OPERS.

Source Code

;; Defined in /usr/src/emacs/lisp/pcmpl-cvs.el.gz
(defun pcmpl-cvs-tags (&optional opers)
  "Return all the tags which could apply to the files related to OPERS."
  (let ((entries (pcmpl-cvs-entries opers))
	tags)
    (with-temp-buffer
      (apply #'call-process pcmpl-cvs-binary nil t nil
	     "status" "-v" entries)
      (goto-char (point-min))
      (while (re-search-forward "Existing Tags:" nil t)
	(forward-line)
	(while (not (looking-at "^$"))
	  (unless (looking-at "^\\s-+\\(\\S-+\\)\\s-+")
	    (error "Error in output from `cvs status -v'"))
	  (setq tags (cons (match-string 1) tags))
	  (forward-line))))
    (pcomplete-uniquify-list tags)))