From 4679af47c14f53c45f500ac9e9d4fd07d96d1baa Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 11 Sep 2002 09:32:07 +0000 Subject: [PATCH] (uncomment-region): Fix let/let* use. --- lisp/ChangeLog | 4 ++++ lisp/newcomment.el | 28 ++++++++++++++-------------- 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 + + * newcomment.el (uncomment-region): Fix let/let* use. + 2002-09-11 Simon Josefsson * 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) -- 2.39.5