Mercurial > emacs
changeset 46870:a5e3d40d6003
(comment-region): Force `lines' when `block' is set.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Aug 2002 22:53:39 +0000 |
| parents | 79b3d9092987 |
| children | b1f8aec6c62b |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Mon Aug 12 21:57:12 2002 +0000 +++ b/lisp/newcomment.el Mon Aug 12 22:53:39 2002 +0000 @@ -865,8 +865,8 @@ (>= (point) beg)) (progn (goto-char end) (end-of-line) (skip-syntax-backward " ") (<= (point) end)) - (or (not (string= "" comment-end)) block) - (progn (goto-char beg) (search-forward "\n" end t))))) + (or block (not (string= "" comment-end))) + (or block (progn (goto-char beg) (search-forward "\n" end t)))))) ;; don't add end-markers just because the user asked for `block' (unless (or lines (string= "" comment-end)) (setq block nil))