1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00

; * lisp/vc/vc.el (vc-checkin): Fix thinko.

This commit is contained in:
Sean Whitton 2025-06-21 19:03:54 +01:00
parent c98a74cd87
commit c916f816e0

View file

@ -1954,7 +1954,7 @@ Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'."
;; RCS 5.7 gripes about whitespace-only comments too. ;; RCS 5.7 gripes about whitespace-only comments too.
(unless (and comment (string-match "[^\t\n ]" comment)) (unless (and comment (string-match "[^\t\n ]" comment))
(setq comment "*** empty log message ***")) (setq comment "*** empty log message ***"))
(when register (vc-register (list backend files))) (when register (vc-register (list backend register)))
(cl-labels ((do-it () (cl-labels ((do-it ()
;; We used to change buffers to get local value of ;; We used to change buffers to get local value of
;; `vc-checkin-switches', but the (singular) local ;; `vc-checkin-switches', but the (singular) local