Mercurial > emacs
comparison lisp/vc-rcs.el @ 31835:67ea0d3e062b
(vc-rcs-checkin): Fix bug that prevented check-in without explicit
revision number.
author | André Spiegel <spiegel@gnu.org> |
---|---|
date | Fri, 22 Sep 2000 07:48:08 +0000 |
parents | a2c432c6b343 |
children | a05558c54226 |
comparison
equal
deleted
inserted
replaced
31834:b7966a0eec91 | 31835:67ea0d3e062b |
---|---|
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-rcs.el,v 1.4 2000/09/09 00:48:40 monnier Exp $ | 8 ;; $Id: vc-rcs.el,v 1.5 2000/09/21 13:21:41 spiegel 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 |
590 (concat (if vc-keep-workfiles "-u" "-r") rev) | 590 (concat (if vc-keep-workfiles "-u" "-r") rev) |
591 (concat "-m" comment) | 591 (concat "-m" comment) |
592 ;; allow creation of branches with no changes; | 592 ;; allow creation of branches with no changes; |
593 ;; this is used by vc-rcs-receive-file if the | 593 ;; this is used by vc-rcs-receive-file if the |
594 ;; base version cannot be found | 594 ;; base version cannot be found |
595 (if (string-match ".1.1$" rev) "-f") | 595 (if (and (stringp rev) (string-match ".1.1$" rev)) "-f") |
596 switches) | 596 switches) |
597 (vc-file-setprop file 'vc-workfile-version nil) | 597 (vc-file-setprop file 'vc-workfile-version nil) |
598 | 598 |
599 ;; determine the new workfile version | 599 ;; determine the new workfile version |
600 (set-buffer "*vc*") | 600 (set-buffer "*vc*") |