1 |
;;; vc-sccs.el --- support for SCCS version-control |
;;; vc-sccs.el --- support for SCCS version-control |
2 |
|
|
3 |
;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. |
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
4 |
|
;; 2000, 2001, 2004 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF (see vc.el for full credits) |
;; Author: FSF (see vc.el for full credits) |
7 |
;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
;; Maintainer: Andre Spiegel <spiegel@gnu.org> |
151 |
'locking) |
'locking) |
152 |
|
|
153 |
(defun vc-sccs-workfile-unchanged-p (file) |
(defun vc-sccs-workfile-unchanged-p (file) |
154 |
"SCCS-specific implementation of vc-workfile-unchanged-p." |
"SCCS-specific implementation of `vc-workfile-unchanged-p'." |
155 |
(zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) |
(zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) |
156 |
(list "--brief" "-q" |
(list "--brief" "-q" |
157 |
(concat "-r" (vc-workfile-version file)))))) |
(concat "-r" (vc-workfile-version file)))))) |
398 |
|
|
399 |
(provide 'vc-sccs) |
(provide 'vc-sccs) |
400 |
|
|
401 |
;;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041 |
;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041 |
402 |
;;; vc-sccs.el ends here |
;;; vc-sccs.el ends here |