procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2002-09-11 09:32:07 +00:00
parent cf681de6e5
commit 4679af47c1
2 changed files with 18 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

28
lisp/newcomment.el
View file

@ -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)