Mercurial > emacs

comparison lisp/vc.el @ 1352:a8623439066b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-backend-steal): Delete the workfile after the rcs -M -u.
author Richard M. Stallman <rms@gnu.org>
date Tue, 06 Oct 1992 08:59:39 +0000
parents 8d047d2d2592
children 429e23e87072
comparison
equal deleted inserted replaced
1351:e7bc20e1b2b9 1352:a8623439066b
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992 Free Software Foundation, Inc.
4 4
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
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
1101 (vc-do-command 0 "unget" file "-n" (if rev (concat "-r" rev))) 1101 (vc-do-command 0 "unget" file "-n" (if rev (concat "-r" rev)))
1102 (vc-do-command 0 "get" file "-g" (if rev (concat "-r" rev))) 1102 (vc-do-command 0 "get" file "-g" (if rev (concat "-r" rev)))
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))
1109 (message "Stealing lock on %s...done" file) 1110 (message "Stealing lock on %s...done" file)
1110 ) 1111 )