From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 30 May 2003 20:06:40 +0000 (+0000)
Subject: (comment-empty-lines): New var.
X-Git-Tag: ttn-vms-21-2-B4~9852
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6976bf99f0e9ab077844900de1cf34eda5e2c10b;p=emacs.git

(comment-empty-lines): New var.
(comment-region-internal): Use it.
---

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index d7067184539..c73f4ef644f 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -194,6 +194,15 @@ makes the comment easier to read.  Default is 1.  nil means 0."
 This is obsolete because you might as well use \\[newline-and-indent]."
   :type 'boolean)
 
+(defcustom comment-empty-lines nil
+  "If nil, `comment-region' does not comment out empty lines.
+If t, it always comments out empty lines.
+if `eol' it only comments out empty lines if comments are
+terminated by the end of line (i.e. `comment-end' is empty)."
+  :type '(choice (const :tag "Never" nil)
+	  (const :tag "Always" t)
+	  (const :tag "EOl-terminated" 'eol)))
+
 ;;;;
 ;;;; Helpers
 ;;;;
@@ -821,7 +830,8 @@ of the region for CE and CS.
 INDENT indicates to put CS and CCS at the current indentation of the region
 rather than at left margin."
   ;;(assert (< beg end))
-  (let ((no-empty t))
+  (let ((no-empty (not (or (eq comment-empty-lines t)
+			   (and comment-empty-lines (zerop (length ce)))))))
     ;; Sanitize CE and CCE.
     (if (and (stringp ce) (string= "" ce)) (setq ce nil))
     (if (and (stringp cce) (string= "" cce)) (setq cce nil))