(let ((filename (or workfile file)))
(message "Checking out %s..." filename)
- ;; Change buffers to get local value of vc-checkin-switches.
+ ;; Clean up comment prior to checkout (in case user ci's outside vc-cc)
+ (setq comment (vc-cleanup-comment comment nil))
+ ;; Change buffers to get local value of vc-checkout-switches.
(set-buffer (or (get-file-buffer file) (current-buffer)))
(vc-do-cleartool-command "co" file