changeset 1459:a7394244aa9a

(comment-region): Do move to next line, in neg arg case.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Oct 1992 21:22:44 +0000
parents ef32d654351e
children e60eef93a18f
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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) ()