1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index f2fb11feeb0..bc4bee00c02 100644
--- 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)))