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

2 files changed, 18 insertions, 14 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28f9c38ebb0..0fd83a53e1a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-11  Juanma Barranquero  <lektu@terra.es>
+
+        * newcomment.el (uncomment-region): Fix let/let* use.
+
 2002-09-11  Simon Josefsson  <jas@extundo.com>
 
         * gud.el (gud-gdb-massage-args): Don't secretly add -fullname.
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 01cf5bdaa86..51dd4c5c20e 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)