diff options
| author | Richard M. Stallman | 1992-10-06 08:59:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-06 08:59:39 +0000 |
| commit | d743a3c876fb12ce883fa0947b993dfdd869edb1 (patch) | |
| tree | 0993b15ca7b89be935671e2fffb8fb405b909d79 | |
| parent | 90e2359039d97550ac72b2804580d448964b98cc (diff) | |
| download | emacs-d743a3c876fb12ce883fa0947b993dfdd869edb1.tar.gz emacs-d743a3c876fb12ce883fa0947b993dfdd869edb1.zip | |
(vc-backend-steal): Delete the workfile after the rcs -M -u.
| -rw-r--r-- | lisp/vc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index d72e2a55d24..ef22dd75d90 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 6 | ;; Version: 4.0 | 6 | ;; Version: 4.0 |
| 7 | 7 | ||
| 8 | ;; $Id: vc.el,v 1.11 1992/10/05 21:09:26 rms Exp rms $ | 8 | ;; $Id: vc.el,v 1.12 1992/10/05 22:03:53 rms Exp rms $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1103,6 +1103,7 @@ Return nil if there is no such person." | |||
| 1103 | ) | 1103 | ) |
| 1104 | (progn | 1104 | (progn |
| 1105 | (vc-do-command 0 "rcs" "-M" (concat "-u" rev) file) | 1105 | (vc-do-command 0 "rcs" "-M" (concat "-u" rev) file) |
| 1106 | (delete-file file) | ||
| 1106 | (vc-do-command 0 "rcs" (concat "-l" rev) file) | 1107 | (vc-do-command 0 "rcs" (concat "-l" rev) file) |
| 1107 | ) | 1108 | ) |
| 1108 | (vc-file-setprop file 'vc-locking-user (user-login-name)) | 1109 | (vc-file-setprop file 'vc-locking-user (user-login-name)) |