Mercurial > emacs
comparison lisp/vc-sccs.el @ 88123:375f2633d815
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 |