mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(checkdoc-file-comments-engine): Use

Browse source 
`lm-commentary-end' to find the end of the commentary section.
This commit is contained in:
Lute Kamstra 2003-05-23 10:10:24 +00:00
parent c7dff41d3f
commit d547e25f45
2 changed files with 32 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/ChangeLog
View file

@ -1,3 +1,25 @@
2003-05-23 Lute Kamstra <Lute.Kamstra@cwi.nl>
* emacs-lisp/lisp-mnt.el: Make the description of the library more
accurate.
(lm-any-header): New user option.
(lm-section-start): New function; rewrite of `lm-section-mark'.
(lm-section-mark): Make alias of `lm-section-start'.
(lm-section-end): New function.
(lm-code-start): New function; rewrite of `lm-code-mark'.
(lm-code-mark): Make alias of `lm-code-start'.
(lm-commentary-start): New function; rewrite of
`lm-commentary-mark'.
(lm-commentary-mark): Make alias of `lm-commentary-start'.
(lm-commentary-end): New function.
(lm-history-start): New function; rewrite of `lm-history-mark'.
(lm-history-mark): Make alias of `lm-history-start'.
(lm-commentary): Use `lm-commentary-end' to find the end of the
commentary section.
* emacs-lisp/checkdoc.el (checkdoc-file-comments-engine): Use
`lm-commentary-end' to find the end of the commentary section.
2003-05-22 Ken Stevens <kstevens@ichips.intel.com>
* ispell.el: Sync to version 3.6.

26
lisp/emacs-lisp/checkdoc.el
View file

@ -2346,22 +2346,16 @@ Code:, and others referenced in the style guide."
;; 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)
(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