Function: vc-rcs-system-release

vc-rcs-system-release is a byte-compiled function defined in vc-rcs.el.gz.

Signature

(vc-rcs-system-release)

Documentation

Return the RCS release installed on this system, as a string.

Return symbol unknown if the release cannot be deducted. The user can override this using variable vc-rcs-release.

If the user has not set variable vc-rcs-release and it is nil, variable vc-rcs-release is set to the returned value.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-rcs.el.gz
(defun vc-rcs-system-release ()
  "Return the RCS release installed on this system, as a string.
Return symbol `unknown' if the release cannot be deducted.  The user can
override this using variable `vc-rcs-release'.

If the user has not set variable `vc-rcs-release' and it is nil,
variable `vc-rcs-release' is set to the returned value."
  (or vc-rcs-release
      (setq vc-rcs-release
	    (or (and (zerop (vc-do-command "*vc*" nil "rcs" nil "-V"))
		     (with-current-buffer "*vc*"
		       (vc-parse-buffer "^RCS version \\([0-9.]+ *.*\\)" 1)))
		'unknown))))