/[emacs]/emacs/lisp/emacs-lisp/checkdoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/checkdoc.el

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

revision 1.36 by lektu, Fri Mar 28 17:38:50 2003 UTC revision 1.37 by lute, Fri May 23 10:09:52 2003 UTC
# Line 2346  Code:, and others referenced in the styl Line 2346  Code:, and others referenced in the styl
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

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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