Mercurial > emacs

comparison lisp/vc-sccs.el @ 56953:2cc3f5b16438

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc fix.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 07 Sep 2004 04:48:04 +0000
parents 9df38e21f685
children 6fb026ad601f 42acc7fa8a4f cce1c0ee76ee
comparison
equal deleted inserted replaced
56952:1e43327f7457 56953:2cc3f5b16438
1 ;;; vc-sccs.el --- support for SCCS version-control 1 ;;; vc-sccs.el --- support for SCCS version-control
2 2
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 ;; 2000, 2001, 2004 Free Software Foundation, Inc.
4 5
5 ;; Author: FSF (see vc.el for full credits) 6 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 8
8 ;; $Id: vc-sccs.el,v 1.24 2003/09/01 15:45:17 miles Exp $ 9 ;; $Id$
9 10
10 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
11 12
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
148 (defun vc-sccs-checkout-model (file) 149 (defun vc-sccs-checkout-model (file)
149 "SCCS-specific version of `vc-checkout-model'." 150 "SCCS-specific version of `vc-checkout-model'."
150 'locking) 151 'locking)
151 152
152 (defun vc-sccs-workfile-unchanged-p (file) 153 (defun vc-sccs-workfile-unchanged-p (file)
153 "SCCS-specific implementation of vc-workfile-unchanged-p." 154 "SCCS-specific implementation of `vc-workfile-unchanged-p'."
154 (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file) 155 (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file)
155 (list "--brief" "-q" 156 (list "--brief" "-q"
156 (concat "-r" (vc-workfile-version file)))))) 157 (concat "-r" (vc-workfile-version file))))))
157 158
158 159
395 (file-name-directory (vc-name file)))) 396 (file-name-directory (vc-name file))))
396 (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1)))) 397 (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1))))
397 398
398 (provide 'vc-sccs) 399 (provide 'vc-sccs)
399 400
400 ;;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041 401 ;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041
401 ;;; vc-sccs.el ends here 402 ;;; vc-sccs.el ends here