# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1031736715 0
# Node ID 2885b5553da7ef4a29f0c91f0eeecf2e6418f8f6
# Parent  59f6bc9d4bc8557b027cf61b37a34e4786607cfd
(uncomment-region): Fix let/let* use.

diff -r 59f6bc9d4bc8 -r 2885b5553da7 lisp/newcomment.el
--- a/lisp/newcomment.el	Wed Sep 11 05:07:36 2002 +0000
+++ b/lisp/newcomment.el	Wed Sep 11 09:31:55 2002 +0000
@@ -622,22 +622,22 @@
   (save-excursion
     (goto-char beg)
     (setq end (copy-marker end))
-    (let ((numarg (prefix-numeric-value arg))
-	  (ccs comment-continue)
-	  (srei (comment-padright ccs 're))
-	  (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
-	  spt)
+    (let* ((numarg (prefix-numeric-value arg))
+           (ccs comment-continue)
+           (srei (comment-padright ccs 're))
+           (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
+           spt)
       (while (and (< (point) end)
 		  (setq spt (comment-search-forward end t)))
-	(let* ((ipt (point))
-	       ;; Find the end of the comment.
-	       (ept (progn
-		      (goto-char spt)
-		      (unless (comment-forward)
-			(error "Can't find the comment end"))
-		      (point)))
-	       (box nil)
-	       (box-equal nil))	   ;Whether we might be using `=' for boxes.
+	(let ((ipt (point))
+              ;; Find the end of the comment.
+              (ept (progn
+                     (goto-char spt)
+                     (unless (comment-forward)
+                       (error "Can't find the comment end"))
+                     (point)))
+              (box nil)
+              (box-equal nil))     ;Whether we might be using `=' for boxes.
 	  (save-restriction
 	    (narrow-to-region spt ept)