[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el

[Lute Kamstra]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.36 
emacs/lisp/emacs-lisp/checkdoc.el:1.37
*** emacs/lisp/emacs-lisp/checkdoc.el:1.36      Fri Mar 28 12:38:50 2003
--- emacs/lisp/emacs-lisp/checkdoc.el   Fri May 23 06:09:52 2003
***************
*** 2346,2367 ****
        ;; section that is easy to pick out, and it is also the most
        ;; visible section (with the finder).
        (let ((cm (lm-commentary-mark)))
!       (if cm
!           (save-excursion
!             (goto-char (lm-commentary-mark))
!             ;; Spellcheck between the commentary, and the first
!             ;; non-comment line.  We could use lm-commentary, but that
!             ;; returns a string, and Ispell wants to talk to a buffer.
!             ;; Since the comments talk about Lisp, use the specialized
!             ;; spell-checker we also used for doc strings.
!             (let ((e (save-excursion (re-search-forward "^[^;]" nil t)
!                                      (point))))
!               (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)
        (setq
         err
         (or
--- 2346,2361 ----
        ;; section that is easy to pick out, and it is also the most
        ;; visible section (with the finder).
        (let ((cm (lm-commentary-mark)))
!         (when cm
!           (save-excursion
!             (goto-char cm)
!             (let ((e (copy-marker (lm-commentary-end))))
!               ;; Since the comments talk about Lisp, use the
!               ;; specialized spell-checker we also used for doc
!               ;; strings.
!               (checkdoc-sentencespace-region-engine (point) e)
!               (checkdoc-proper-noun-region-engine (point) e)
!               (checkdoc-ispell-docstring-engine e)))))
        (setq
         err
         (or