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