(comment-region): Fix previous change.

diff --git a/lisp/simple.el b/lisp/simple.el
index 909427aeb9676d37e6a04e7c46fae2bce3488522..5acbdaeaf4f8d9aa507b8c4d6064fa770b971b4b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1854,16 +1854,16 @@ not end the comment.  Blank lines do not get comments."
                                   (backward-char (length ce))
                                   (looking-at (regexp-quote ce))))
                            (delete-char (- (length ce)))))
-                   (setq count numarg)
-                   (while (> 1 (setq count (1+ count)))
-                     (end-of-line)
-                     ;; this is questionable if comment-end ends in whitespace
-                     ;; that is pretty brain-damaged though
-                     (skip-chars-backward " \t")
-                     (save-excursion
-                       (backward-char (length ce))
-                       (if (looking-at (regexp-quote ce))
-                           (delete-char (length ce)))))))
+                   (let ((count numarg))
+                     (while (> 1 (setq count (1+ count)))
+                       (end-of-line)
+                       ;; this is questionable if comment-end ends in whitespace
+                       ;; that is pretty brain-damaged though
+                       (skip-chars-backward " \t")
+                       (save-excursion
+                         (backward-char (length ce))
+                         (if (looking-at (regexp-quote ce))
+                             (delete-char (length ce))))))))
                (forward-line 1))
            ;; Insert at beginning and at end.
             (if (looking-at "[ \t]*$") ()