diff lisp/simple.el @ 5767:8fef255fe6b3

(comment-region): Fix previous change.

--- a/lisp/simple.el	Fri Feb 04 01:04:15 1994 +0000
+++ b/lisp/simple.el	Fri Feb 04 01:13:05 1994 +0000
@@ -1854,16 +1854,16 @@
 				   (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]*$") ()