diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-23 15:50:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-23 15:50:17 +0000 |
| commit | 6a6be59a1fd1074c6dfc4b8646c8689cca50d9e9 (patch) | |
| tree | b7e5af3c24866b1469c4463c0ddd7fdeb9e97f01 /lisp/vc.el | |
| parent | 7ffef3b849531ddeaa091e6a8c81e1068cf88663 (diff) | |
| download | emacs-6a6be59a1fd1074c6dfc4b8646c8689cca50d9e9.tar.gz | |
(vc-backend-admin, vc-backend-checkin): Assume that
comments are empty if they contain only white space.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 8cd4a752a43..2629b9268e1 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1545,7 +1545,7 @@ From a program, any arguments are passed to the `rcs2log' script." ((eq backend 'CVS) (vc-do-command 0 "cvs" file 'WORKFILE ;; CVS "add" - (and comment (not (string= comment "")) + (and comment (string-match "[^\t\n ]" comment) (concat "-m" comment))) ))) (message "Registering %s...done" file) @@ -1688,8 +1688,9 @@ From a program, any arguments are passed to the `rcs2log' script." ;; accordingly. (message "Checking in %s..." file) ;; "This log message intentionally left almost blank". - (and (or (not comment) (string= comment "")) - (setq comment "*** empty log message ***")) + ;; RCS 5.7 gripes about white-space-only comments too. + (or (and comment (string-match "[^\t\n ]" 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))) |