diff options
| author | Richard M. Stallman | 1993-05-29 03:10:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-29 03:10:35 +0000 |
| commit | 820bde8d4914cc9cbc82a2cb180e668b5bc702fe (patch) | |
| tree | 17bfb5b412e0792854b279deb794fa9924db09f6 | |
| parent | c273e6471eac133154ff7a472a281d7f8b52e3d1 (diff) | |
| download | emacs-820bde8d4914cc9cbc82a2cb180e668b5bc702fe.tar.gz emacs-820bde8d4914cc9cbc82a2cb180e668b5bc702fe.zip | |
(vc-steal-lock, vc-insert-headers): Fix question whitespace.
| -rw-r--r-- | lisp/vc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 9fb699d9d03..bb5adb31249 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -99,7 +99,7 @@ The value is only computed when needed to avoid an expensive search.") | |||
| 99 | 99 | ||
| 100 | (defvar vc-header-alist | 100 | (defvar vc-header-alist |
| 101 | '((SCCS "\%W\%") (RCS "\$Id\$")) | 101 | '((SCCS "\%W\%") (RCS "\$Id\$")) |
| 102 | "*Header keywords to be inserted when `vc-insert-header' is executed.") | 102 | "*Header keywords to be inserted when `vc-insert-headers' is executed.") |
| 103 | (defconst vc-static-header-alist | 103 | (defconst vc-static-header-alist |
| 104 | '(("\\.c$" . | 104 | '(("\\.c$" . |
| 105 | "\n#ifndef lint\nstatic char vcid[] = \"\%s\";\n#endif /* lint */\n")) | 105 | "\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 | (interactive) | 553 | (interactive) |
| 554 | (if (not owner) | 554 | (if (not owner) |
| 555 | (setq owner (vc-locking-user file))) | 555 | (setq owner (vc-locking-user file))) |
| 556 | (if (not (y-or-n-p (format "Take the lock on %s:%s from %s?" file rev owner))) | 556 | (if (not (y-or-n-p (format "Take the lock on %s:%s from %s? " file rev owner))) |
| 557 | (error "Steal cancelled.")) | 557 | (error "Steal cancelled.")) |
| 558 | (pop-to-buffer (get-buffer-create "*VC-mail*")) | 558 | (pop-to-buffer (get-buffer-create "*VC-mail*")) |
| 559 | (setq default-directory (expand-file-name "~/")) | 559 | (setq default-directory (expand-file-name "~/")) |
| @@ -790,7 +790,7 @@ the variable `vc-header-alist'." | |||
| 790 | (save-restriction | 790 | (save-restriction |
| 791 | (widen) | 791 | (widen) |
| 792 | (if (or (not (vc-check-headers)) | 792 | (if (or (not (vc-check-headers)) |
| 793 | (y-or-n-p "Version headers already exist. Insert another set?")) | 793 | (y-or-n-p "Version headers already exist. Insert another set? ")) |
| 794 | (progn | 794 | (progn |
| 795 | (let* ((delims (cdr (assq major-mode vc-comment-alist))) | 795 | (let* ((delims (cdr (assq major-mode vc-comment-alist))) |
| 796 | (comment-start-vc (or (car delims) comment-start "#")) | 796 | (comment-start-vc (or (car delims) comment-start "#")) |