Function: vc-sccs-write-revision

vc-sccs-write-revision is a byte-compiled function defined in vc-sccs.el.gz.

Signature

(vc-sccs-write-revision FILE OUTFILE &optional REV)

Documentation

Write the SCCS version of input file FILE to output file OUTFILE.

Optional string REV is a revision.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-sccs.el.gz
;; Cf vc-sccs-find-revision.
(defun vc-sccs-write-revision (file outfile &optional rev)
  "Write the SCCS version of input file FILE to output file OUTFILE.
Optional string REV is a revision."
  (with-temp-buffer
    (apply #'vc-sccs-do-command t 0 "get" (vc-master-name file)
	   (append '("-s" "-p" "-k") ; -k: no keyword expansion
		   (if rev (list (concat "-r" rev)))))
    (write-region nil nil outfile nil 'silent)))