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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28f9c38ebb0b3de45598c58b210855761d47bc75..0fd83a53e1a32ad547e22d7067e4e2d0965e9baf 100644 (file)
--- 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 01cf5bdaa86cc620d9d261148da354efdf682169..51dd4c5c20e23e3e40fbbc743551cc274b669fd6 100644 (file)
--- 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)