# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1029192819 0
# Node ID a5e3d40d60038332a86ea7f38dbdb9739bc2053f
# Parent  79b3d9092987bd8f70afb6888fa0822dabb93efa
(comment-region): Force `lines' when `block' is set.

diff -r 79b3d9092987 -r a5e3d40d6003 lisp/newcomment.el
--- 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))