[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el |
Date: |
Fri, 23 May 2003 06:09:52 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el,
Lute Kamstra <=