Mercurial > emacs

comparison lisp/vc-sccs.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 68c22ea6027c 2cc3f5b16438
children f9a65d7ebd29
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
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