mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-20 21:22:44 +00:00
parent ac6895157f
commit 6e88ed495e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

@ -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) ()