diff options
| author | Richard M. Stallman | 2001-11-11 20:06:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-11 20:06:58 +0000 |
| commit | c9d557f595b2e121e0f4f738bfb4a5efd869e951 (patch) | |
| tree | c414513c2ff679aac784a1f3be598d438260d529 | |
| parent | 1c4fe319c900665cf0cee0817f627175fc723490 (diff) | |
| download | emacs-c9d557f595b2e121e0f4f738bfb4a5efd869e951.tar.gz emacs-c9d557f595b2e121e0f4f738bfb4a5efd869e951.zip | |
(checkdoc-file-comments-engine):
Turn off error in some re-search-forward calls.
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 6364a5d0db5..899fe6848a9 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el | |||
| @@ -2217,7 +2217,7 @@ Code:, and others referenced in the style guide." | |||
| 2217 | ((or (re-search-forward "^;;; History" nil t) | 2217 | ((or (re-search-forward "^;;; History" nil t) |
| 2218 | (re-search-forward "^;;; Code" nil t) | 2218 | (re-search-forward "^;;; Code" nil t) |
| 2219 | (re-search-forward "^(require" nil t) | 2219 | (re-search-forward "^(require" nil t) |
| 2220 | (re-search-forward "^(")) | 2220 | (re-search-forward "^(" nil t)) |
| 2221 | (beginning-of-line))) | 2221 | (beginning-of-line))) |
| 2222 | (if (checkdoc-y-or-n-p | 2222 | (if (checkdoc-y-or-n-p |
| 2223 | "You should have a \";;; Commentary:\", add one? ") | 2223 | "You should have a \";;; Commentary:\", add one? ") |
| @@ -2246,7 +2246,7 @@ Code:, and others referenced in the style guide." | |||
| 2246 | (re-search-forward "^;;\\s-*\n\\|^\n" nil t)) | 2246 | (re-search-forward "^;;\\s-*\n\\|^\n" nil t)) |
| 2247 | ((or (re-search-forward "^;;; Code" nil t) | 2247 | ((or (re-search-forward "^;;; Code" nil t) |
| 2248 | (re-search-forward "^(require" nil t) | 2248 | (re-search-forward "^(require" nil t) |
| 2249 | (re-search-forward "^(")) | 2249 | (re-search-forward "^(" nil t)) |
| 2250 | (beginning-of-line))) | 2250 | (beginning-of-line))) |
| 2251 | (if (checkdoc-y-or-n-p | 2251 | (if (checkdoc-y-or-n-p |
| 2252 | "You should have a \";;; History:\", add one? ") | 2252 | "You should have a \";;; History:\", add one? ") |