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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.27.2.1 
emacs/lisp/emacs-lisp/checkdoc.el:1.27.2.2
*** emacs/lisp/emacs-lisp/checkdoc.el:1.27.2.1  Fri Apr  4 01:20:16 2003
--- emacs/lisp/emacs-lisp/checkdoc.el   Tue Oct 14 19:32:20 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
***************
*** 2702,2705 ****
--- 2696,2700 ----
  
  (provide 'checkdoc)
  
+ ;;; arch-tag: c49a7ec8-3bb7-46f2-bfbc-d5f26e033b26
  ;;; checkdoc.el ends here