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