/[emacs]/emacs/lisp/newcomment.el
ViewVC logotype

Diff of /emacs/lisp/newcomment.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66 by monnier, Fri May 30 20:06:40 2003 UTC revision 1.67 by monnier, Fri Jul 4 22:45:26 2003 UTC
# Line 669  comment markers." Line 669  comment markers."
669      (let* ((numarg (prefix-numeric-value arg))      (let* ((numarg (prefix-numeric-value arg))
670             (ccs comment-continue)             (ccs comment-continue)
671             (srei (comment-padright ccs 're))             (srei (comment-padright ccs 're))
672               (csre (comment-padright comment-start 're))
673             (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))             (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
674             spt)             spt)
675        (while (and (< (point) end)        (while (and (< (point) end)
# Line 697  comment markers." Line 698  comment markers."
698                             (> (- (point) (point-min) (length comment-start)) 7))                             (> (- (point) (point-min) (length comment-start)) 7))
699                         (> (count-lines (point-min) (point-max)) 2))                         (> (count-lines (point-min) (point-max)) 2))
700                (setq box t))                (setq box t))
701              (when (looking-at (regexp-quote comment-padding))              ;; Skip the padding.  Padding can come from comment-padding and/or
702                (goto-char (match-end 0)))              ;; from comment-start, so we first check comment-start.
703                (if (or (save-excursion (goto-char (point-min)) (looking-at csre))
704                        (looking-at (regexp-quote comment-padding)))
705                    (goto-char (match-end 0)))
706              (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei)))              (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei)))
707                (goto-char (match-end 0)))                (goto-char (match-end 0)))
708              (if (null arg) (delete-region (point-min) (point))              (if (null arg) (delete-region (point-min) (point))

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26