[Emacs-diffs] Changes to emacs/lisp/newcomment.el

[Juanma Barranquero]

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.52 emacs/lisp/newcomment.el:1.53
*** emacs/lisp/newcomment.el:1.52       Tue Sep 10 02:20:52 2002
--- emacs/lisp/newcomment.el    Wed Sep 11 05:31:55 2002
***************
*** 622,643 ****
    (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)
        (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.
          (save-restriction
            (narrow-to-region spt ept)
  
--- 622,643 ----
    (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)
        (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.
          (save-restriction
            (narrow-to-region spt ept)