(defvar vc-header-alist
'((SCCS "\%W\%") (RCS "\$Id\$"))
- "*Header keywords to be inserted when `vc-insert-header' is executed.")
+ "*Header keywords to be inserted when `vc-insert-headers' is executed.")
(defconst vc-static-header-alist
'(("\\.c$" .
"\n#ifndef lint\nstatic char vcid[] = \"\%s\";\n#endif /* lint */\n"))
(interactive)
(if (not owner)
(setq owner (vc-locking-user file)))
- (if (not (y-or-n-p (format "Take the lock on %s:%s from %s?" file rev owner)))
+ (if (not (y-or-n-p (format "Take the lock on %s:%s from %s? " file rev owner)))
(error "Steal cancelled."))
(pop-to-buffer (get-buffer-create "*VC-mail*"))
(setq default-directory (expand-file-name "~/"))
(save-restriction
(widen)
(if (or (not (vc-check-headers))
- (y-or-n-p "Version headers already exist. Insert another set?"))
+ (y-or-n-p "Version headers already exist. Insert another set? "))
(progn
(let* ((delims (cdr (assq major-mode vc-comment-alist)))
(comment-start-vc (or (car delims) comment-start "#"))