Mercurial > emacs

comparison lisp/vc-sccs.el @ 88123:375f2633d815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
comparison
equal deleted inserted replaced
52428:27bc8b966642 88123:375f2633d815
3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000,2001 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-sccs.el,v 1.23 2003/08/12 18:01:21 spiegel Exp $ 8 ;; $Id: vc-sccs.el,v 1.21 2003/02/04 12:11:54 lektu Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; 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 13 ;; it under the terms of the GNU General Public License as published by
128 'up-to-date 128 'up-to-date
129 (if (string-match ".rw..-..-." permissions) 129 (if (string-match ".rw..-..-." permissions)
130 (if (file-ownership-preserved-p file) 130 (if (file-ownership-preserved-p file)
131 'edited 131 'edited
132 (vc-user-login-name owner-uid)) 132 (vc-user-login-name owner-uid))
133 ;; Strange permissions. 133 ;; Strange permissions.
134 ;; Fall through to real state computation. 134 ;; Fall through to real state computation.
135 (vc-sccs-state file)))) 135 (vc-sccs-state file)))
136 (vc-sccs-state file))) 136 (vc-sccs-state file))))
137 137
138 (defun vc-sccs-workfile-version (file) 138 (defun vc-sccs-workfile-version (file)
139 "SCCS-specific version of `vc-workfile-version'." 139 "SCCS-specific version of `vc-workfile-version'."
140 (with-temp-buffer 140 (with-temp-buffer
141 ;; The workfile version is always the latest version number. 141 (vc-insert-file (vc-name file) "^\001e")
142 ;; To find this number, search the entire delta table,
143 ;; rather than just the first entry, because the
144 ;; first entry might be a deleted ("R") version.
145 (vc-insert-file (vc-name file) "^\001e\n\001[^s]")
146 (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1))) 142 (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1)))
147 143
148 (defun vc-sccs-checkout-model (file) 144 (defun vc-sccs-checkout-model (file)
149 "SCCS-specific version of `vc-checkout-model'." 145 "SCCS-specific version of `vc-checkout-model'."
150 'locking) 146 'locking)
395 (file-name-directory (vc-name file)))) 391 (file-name-directory (vc-name file))))
396 (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1)))) 392 (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1))))
397 393
398 (provide 'vc-sccs) 394 (provide 'vc-sccs)
399 395
400 ;;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041
401 ;;; vc-sccs.el ends here 396 ;;; vc-sccs.el ends here