Commit 820bde8d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent c273e647
...@@ -99,7 +99,7 @@ The value is only computed when needed to avoid an expensive search.") ...@@ -99,7 +99,7 @@ The value is only computed when needed to avoid an expensive search.")
(defvar vc-header-alist (defvar vc-header-alist
'((SCCS "\%W\%") (RCS "\$Id\$")) '((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 (defconst vc-static-header-alist
'(("\\.c$" . '(("\\.c$" .
"\n#ifndef lint\nstatic char vcid[] = \"\%s\";\n#endif /* lint */\n")) "\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." ...@@ -553,7 +553,7 @@ level to check it in under. COMMENT, if specified, is the checkin comment."
(interactive) (interactive)
(if (not owner) (if (not owner)
(setq owner (vc-locking-user file))) (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.")) (error "Steal cancelled."))
(pop-to-buffer (get-buffer-create "*VC-mail*")) (pop-to-buffer (get-buffer-create "*VC-mail*"))
(setq default-directory (expand-file-name "~/")) (setq default-directory (expand-file-name "~/"))
...@@ -790,7 +790,7 @@ the variable `vc-header-alist'." ...@@ -790,7 +790,7 @@ the variable `vc-header-alist'."
(save-restriction (save-restriction
(widen) (widen)
(if (or (not (vc-check-headers)) (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 (progn
(let* ((delims (cdr (assq major-mode vc-comment-alist))) (let* ((delims (cdr (assq major-mode vc-comment-alist)))
(comment-start-vc (or (car delims) comment-start "#")) (comment-start-vc (or (car delims) comment-start "#"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment