# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 719616164 0
# Node ID a7394244aa9a69ec242272bade04164633d2f451
# Parent  ef32d654351e40263382fa7fd4bee0aa17a624ef
(comment-region): Do move to next line, in neg arg case.

diff -r ef32d654351e -r a7394244aa9a lisp/simple.el
--- a/lisp/simple.el	Tue Oct 20 21:21:47 1992 +0000
+++ b/lisp/simple.el	Tue Oct 20 21:22:44 1992 +0000
@@ -1555,7 +1555,8 @@
                     (skip-chars-backward " \t")
                     (backward-char (length ce))
                     (if (looking-at (regexp-quote ce))
-                        (delete-char (length ce))))))
+                        (delete-char (length ce)))))
+		(forward-line 1))
             (if (looking-at "[ \t]*$") ()
               (insert cs)
               (if (string= "" ce) ()