procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-mcvs-register): Fix let-binding (for use of `file').

Browse source
This commit is contained in:
Glenn Morris 2008-02-24 22:51:00 +00:00
parent a8bdd228f8
commit 59e9dbbc63
2 changed files with 18 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-02-24 Glenn Morris <rgm@gnu.org>
* vc-mcvs.el (vc-mcvs-register): Fix let-binding (for use of `file').
2008-02-24 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/compile.el (compilation-start): Specify a face for

26
lisp/vc-mcvs.el
View file

@ -245,19 +245,19 @@ the Meta-CVS command (in that order)."
(pp types (current-buffer))
(save-buffer)
(unless (get-buffer-window (current-buffer) t)
(kill-buffer (current-buffer)))))))
;; Now do the ADD.
(prog1 (apply 'vc-mcvs-command nil 0 file
"add"
(and comment (string-match "[^\t\n ]" comment)
(concat "-m" comment))
(vc-switches 'MCVS 'register))
;; I'm not sure exactly why, but if we don't setup the inode and root
;; prop of the file, things break later on in vc-mode-line that
;; ends up calling vc-mcvs-working-revision.
;; We also need to set vc-checkout-time so that vc-workfile-unchanged-p
;; doesn't try to call `mcvs diff' on the file.
(vc-mcvs-registered file)))
(kill-buffer (current-buffer))))))
;; Now do the ADD.
(prog1 (apply 'vc-mcvs-command nil 0 file
"add"
(and comment (string-match "[^\t\n ]" comment)
(concat "-m" comment))
(vc-switches 'MCVS 'register))
;; I'm not sure exactly why, but if we don't setup the inode and root
;; prop of the file, things break later on in vc-mode-line that
;; ends up calling vc-mcvs-working-revision.
;; We also need to set vc-checkout-time so that vc-workfile-unchanged-p
;; doesn't try to call `mcvs diff' on the file.
(vc-mcvs-registered file))))
(defalias 'vc-mcvs-responsible-p 'vc-mcvs-root
"Return non-nil if CVS thinks it is responsible for FILE.")