From 7d6650086935275bc9947b5d42d2a00042fdbad4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 14 Jun 1995 11:16:17 +0000 Subject: [PATCH] (vc-backend-checkin): Provide an explicit string saying the log message is empty instead of providing it as empty. Always use -m option for ci. --- lisp/vc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 3b9fbbb7741..e82941af854 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1645,6 +1645,9 @@ From a program, any arguments are passed to the `rcs2log' script." ;; or if the checkin creates a new branch, set the master file branch ;; accordingly. (message "Checking in %s..." file) + ;; "This log message intentionally left almost blank". + (and (or (not comment) (string= comment "")) + (setq comment "*** empty log message ***")) (save-excursion ;; Change buffers to get local value of vc-checkin-switches. (set-buffer (or (get-file-buffer file) (current-buffer))) @@ -1708,9 +1711,7 @@ From a program, any arguments are passed to the `rcs2log' script." vc-checkin-switches)) (apply 'vc-do-command 0 "cvs" file 'WORKFILE "ci" (if rev (concat "-r" rev)) - (if (and comment (not (string= comment ""))) - (concat "-m" comment) - "-m-") + (concat "-m" comment) vc-checkin-switches) ;; determine and store the new workfile version (set-buffer "*vc*") -- 2.39.2