Re: How make comment-region NOT ignore blank lines but comment out those too?

[Kevin Rodgers <ihs_4664@yahoo.com>]

Christian Seberino wrote:

> Thanks.
> 
> Is it possible to do a search and replace automatically as a "hook" to
> comment-region????
> 
> The file will have this problem as "\n#  \n".
> I just have to replace that with "\n#\n".
> 
> I believe this is called a regular expression??
> 
> Can they be run every time we do a comment-region?

You can always try (this is completely untested):

(defadvice comment-region (after unpad-blank-line-comments)
   "If blank lines are commented, delete `comment-padding' on those lines."
   (if (and (null (ad-get-arg 2))	; (null ARG), (null current-prefix-arg)
	   comment-empty-lines)
       ;; We are commenting, not uncommenting.
       (let ((empty-comment-regexp (format "^[ \t]*\\(%s\\)\\(%s\\)$"
					  comment-start
					  comment-padding)))
	(save-restriction
	  (narrow-to-region (ad-get-arg 0) (ad-get-arg 1)) ; (... BEG END)
	  (goto-char (point-min))
	  (while (re-search-forward empty-comment-regexp nil t)
	    (replace-match "" nil nil nil 2))))))

-- 
Kevin Rodgers