Commit 53dd1d53 authored by Glenn Morris's avatar Glenn Morris
Browse files

Martin Rudalics <rudalics at>

(comment-region-internal): Fix newline insertion in `block' case.
parent d0aa78bc
2007-11-28 Martin Rudalics <>
* newcomment.el (comment-region-internal): Fix newline insertion
in `block' case.
2007-11-28 Stefan Monnier <>
* pcvs-parse.el (cvs-parse-table): Adjust regexp for resurrections.
......@@ -969,9 +969,11 @@ 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 (not (or (eq comment-empty-lines t)
(and comment-empty-lines (zerop (length ce)))))))
(and comment-empty-lines (zerop (length ce))))))
;; Sanitize CE and CCE.
(if (and (stringp ce) (string= "" ce)) (setq ce nil))
(setq ce-sanitized ce)
(if (and (stringp cce) (string= "" cce)) (setq cce nil))
;; If CE is empty, multiline cannot be used.
(unless ce (setq ccs nil cce nil))
......@@ -988,7 +990,7 @@ the region rather than at left margin."
(goto-char end)
;; If the end is not at the end of a line and the comment-end
;; is implicit (i.e. a newline), explicitly insert a newline.
(unless (or ce (eolp)) (insert "\n") (indent-according-to-mode))
(unless (or ce-sanitized (eolp)) (insert "\n") (indent-according-to-mode))
(comment-with-narrowing beg end
(let ((min-indent (point-max))
(max-indent 0))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment