(uncomment-region): Fix let/let* use.

2 files changed, 18 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28f9c38ebb..0fd83a53e1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-11  Juanma Barranquero  <[email protected]>
+
+	* newcomment.el (uncomment-region): Fix let/let* use.
+
 2002-09-11  Simon Josefsson  <[email protected]>
 
 	* gud.el (gud-gdb-massage-args): Don't secretly add -fullname.
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 01cf5bdaa8..51dd4c5c20 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -622,22 +622,22 @@ comment markers."
   (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)