emacs: lisp/newcomment.el comparison

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

author	Juanma Barranquero <lekktu@gmail.com>
date	Wed, 11 Sep 2002 09:31:55 +0000
parents	408ecff0939b
children	c5035e184eba

comparison

equal deleted inserted replaced

-:59f6bc9d4bc8
+:2885b5553da7
 (comment-normalize-vars)
 (if (> beg end) (let (mid) (setq mid beg beg end end mid)))
 (save-excursion
 (goto-char beg)
 (setq end (copy-marker end))
-(let ((numarg (prefix-numeric-value arg))
+(let* ((numarg (prefix-numeric-value arg))
-	  (ccs comment-continue)
+(ccs comment-continue)
-	  (srei (comment-padright ccs 're))
+(srei (comment-padright ccs 're))
-	  (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
+(sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
-	  spt)
+spt)
 (while (and (< (point) end)
 		  (setq spt (comment-search-forward end t)))
-	(let* ((ipt (point))
+	(let ((ipt (point))
-	       ;; Find the end of the comment.
+;; Find the end of the comment.
-	       (ept (progn
+(ept (progn
-		      (goto-char spt)
+(goto-char spt)
-		      (unless (comment-forward)
+(unless (comment-forward)
-			(error "Can't find the comment end"))
+(error "Can't find the comment end"))
-		      (point)))
+(point)))
-	       (box nil)
+(box nil)
-	       (box-equal nil))	   ;Whether we might be using `=' for boxes.
+(box-equal nil))     ;Whether we might be using `=' for boxes.
 	  (save-restriction
 	    (narrow-to-region spt ept)
 	    ;; Remove the comment-start.
 	    (goto-char ipt)

Mercurial > emacs