Mercurial > emacs

changeset 47400:2885b5553da7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uncomment-region): Fix let/let* use.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 11 Sep 2002 09:31:55 +0000
parents 59f6bc9d4bc8
children 13110a0745b5
files lisp/newcomment.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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)