mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(vc-steal-lock, vc-insert-headers): Fix question whitespace.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-29 03:10:35 +00:00
parent c273e6471e
commit 820bde8d49
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/vc.el
View File

@ -99,7 +99,7 @@ The value is only computed when needed to avoid an expensive search.")
(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"))
@ -553,7 +553,7 @@ level to check it in under. COMMENT, if specified, is the checkin comment."
(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 "~/"))
@ -790,7 +790,7 @@ the variable `vc-header-alist'."
(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 "#"))