(comment-region): Do move to next line, in neg arg case.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index b3e756c780e..3048c5139c4 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1555,7 +1555,8 @@ not end the comment.  Blank lines do not get comments."
                     (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) ()