# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803128577 0
# Node ID a74a202e96609f945dbfb0c88d0c773e0c1d2563
# Parent  5537ed125771da7c9cdda183b714eac6f72ac8c4
(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.

diff -r 5537ed125771 -r a74a202e9660 lisp/vc.el
--- a/lisp/vc.el	Wed Jun 14 00:45:28 1995 +0000
+++ b/lisp/vc.el	Wed Jun 14 11:16:17 1995 +0000
@@ -1645,6 +1645,9 @@
   ;; 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 @@
 		   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*")