/[emacs]/emacs/lisp/vc-sccs.el
ViewVC logotype

Diff of /emacs/lisp/vc-sccs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15.2.3 by miles, Thu Apr 1 04:29:02 2004 UTC revision 1.15.2.4 by miles, Thu Sep 16 00:12:21 2004 UTC
# Line 1  Line 1 
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>
# Line 150  For a description of possible values, se Line 151  For a description of possible values, se
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))))))
# Line 397  If NAME is nil or a version number strin Line 398  If NAME is nil or a version number strin
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

Legend:
Removed from v.1.15.2.3  
changed lines
  Added in v.1.15.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26