387 |
(if (< n 0) (error "No comment-backward") |
(if (< n 0) (error "No comment-backward") |
388 |
(if comment-use-syntax (forward-comment n) |
(if comment-use-syntax (forward-comment n) |
389 |
(while (> n 0) |
(while (> n 0) |
|
(skip-syntax-forward " ") |
|
390 |
(setq n |
(setq n |
391 |
(if (and (looking-at comment-start-skip) |
(if (or (forward-comment 1) |
392 |
(goto-char (match-end 0)) |
(and (looking-at comment-start-skip) |
393 |
(re-search-forward comment-end-skip nil 'move)) |
(goto-char (match-end 0)) |
394 |
|
(re-search-forward comment-end-skip nil 'move))) |
395 |
(1- n) -1))) |
(1- n) -1))) |
396 |
(= n 0)))) |
(= n 0)))) |
397 |
|
|