Mercurial > emacs
comparison lisp/vc-sccs.el @ 31520:f9d2d484e1e2
* vc-sccs.el (vc-sccs-register):
* vc-rcs.el (vc-rcs-register):
* vc-cvs.el (vc-cvs-register): Don't clear file's properties.
* vc.el (vc-register): Clear file's properties.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 09 Sep 2000 00:48:41 +0000 |
| parents | 1cfec89307a6 |
| children | da206bbad86b |
comparison
equal
deleted
inserted
replaced
| 31519:5a14247e8e26 | 31520:f9d2d484e1e2 |
|---|---|
| 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992,93,94,95,96,97,98,99,2000 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.2 2000/09/05 20:08:22 monnier Exp $ | 8 ;; $Id: vc-sccs.el,v 1.3 2000/09/07 20:06:55 fx 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 |
| 295 `vc-register-switches' and `vc-sccs-register-switches' are passed to | 295 `vc-register-switches' and `vc-sccs-register-switches' are passed to |
| 296 the SCCS command (in that order). | 296 the SCCS command (in that order). |
| 297 | 297 |
| 298 Automatically retrieve a read-only version of the file with keywords | 298 Automatically retrieve a read-only version of the file with keywords |
| 299 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." | 299 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." |
| 300 (vc-file-clearprops file) | |
| 301 (let* ((switches (list | 300 (let* ((switches (list |
| 302 (if (stringp vc-register-switches) | 301 (if (stringp vc-register-switches) |
| 303 (list vc-register-switches) | 302 (list vc-register-switches) |
| 304 vc-register-switches) | 303 vc-register-switches) |
| 305 (if (stringp vc-sccs-register-switches) | 304 (if (stringp vc-sccs-register-switches) |