(comment-region): With just C-u as arg,

delete any number of comment-end delimiters from end of line.

diff --git a/lisp/simple.el b/lisp/simple.el
index f2fb11feeb064ec5b9ddb982191c85ee3fd8f73b..bc4bee00c02aabc82cfae47d94c8a131da911f3a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2264,11 +2264,11 @@ not end the comment.  Blank lines do not get comments."
                        ;; This is questionable if comment-end ends in
                        ;; whitespace.  That is pretty brain-damaged,
                        ;; though.
-                       (skip-chars-backward " \t")
-                       (if (and (>= (- (point) (point-min)) (length ce))
-                                (save-excursion
-                                  (backward-char (length ce))
-                                  (looking-at (regexp-quote ce))))
+                       (while (progn (skip-chars-backward " \t")
+                                     (and (>= (- (point) (point-min)) (length ce))
+                                          (save-excursion
+                                            (backward-char (length ce))
+                                            (looking-at (regexp-quote ce)))))
                            (delete-char (- (length ce)))))
                    (let ((count numarg))
                      (while (> 1 (setq count (1+ count)))