2346 |
;; section that is easy to pick out, and it is also the most |
;; section that is easy to pick out, and it is also the most |
2347 |
;; visible section (with the finder). |
;; visible section (with the finder). |
2348 |
(let ((cm (lm-commentary-mark))) |
(let ((cm (lm-commentary-mark))) |
2349 |
(if cm |
(when cm |
2350 |
(save-excursion |
(save-excursion |
2351 |
(goto-char (lm-commentary-mark)) |
(goto-char cm) |
2352 |
;; Spellcheck between the commentary, and the first |
(let ((e (copy-marker (lm-commentary-end)))) |
2353 |
;; non-comment line. We could use lm-commentary, but that |
;; Since the comments talk about Lisp, use the |
2354 |
;; returns a string, and Ispell wants to talk to a buffer. |
;; specialized spell-checker we also used for doc |
2355 |
;; Since the comments talk about Lisp, use the specialized |
;; strings. |
2356 |
;; spell-checker we also used for doc strings. |
(checkdoc-sentencespace-region-engine (point) e) |
2357 |
(let ((e (save-excursion (re-search-forward "^[^;]" nil t) |
(checkdoc-proper-noun-region-engine (point) e) |
2358 |
(point)))) |
(checkdoc-ispell-docstring-engine e))))) |
|
(checkdoc-sentencespace-region-engine (point) e) |
|
|
(checkdoc-proper-noun-region-engine (point) e) |
|
|
(checkdoc-ispell-docstring-engine e))))) |
|
|
;;; test comment out code |
|
|
;;; (foo 1 3) |
|
|
;;; (bar 5 7) |
|
2359 |
(setq |
(setq |
2360 |
err |
err |
2361 |
(or |
(or |