1 |
;;; vc-rcs.el --- support for RCS version-control |
;;; vc-rcs.el --- support for RCS 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> |
209 |
(vc-file-getprop file 'vc-checkout-model))))) |
(vc-file-getprop file 'vc-checkout-model))))) |
210 |
|
|
211 |
(defun vc-rcs-workfile-unchanged-p (file) |
(defun vc-rcs-workfile-unchanged-p (file) |
212 |
"RCS-specific implementation of vc-workfile-unchanged-p." |
"RCS-specific implementation of `vc-workfile-unchanged-p'." |
213 |
;; Try to use rcsdiff --brief. If rcsdiff does not understand that, |
;; Try to use rcsdiff --brief. If rcsdiff does not understand that, |
214 |
;; do a double take and remember the fact for the future |
;; do a double take and remember the fact for the future |
215 |
(let* ((version (concat "-r" (vc-workfile-version file))) |
(let* ((version (concat "-r" (vc-workfile-version file))) |
787 |
|
|
788 |
(provide 'vc-rcs) |
(provide 'vc-rcs) |
789 |
|
|
790 |
;;; arch-tag: 759b4916-5b0d-431d-b647-b185b8c652cf |
;; arch-tag: 759b4916-5b0d-431d-b647-b185b8c652cf |
791 |
;;; vc-rcs.el ends here |
;;; vc-rcs.el ends here |