From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Nov 2001 20:06:58 +0000 (+0000)
Subject: (checkdoc-file-comments-engine):
X-Git-Tag: ttn-vms-21-2-B4~18663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9d557f595b2e121e0f4f738bfb4a5efd869e951;p=emacs.git

(checkdoc-file-comments-engine):
Turn off error in some re-search-forward calls.
---

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."
 	       ((or (re-search-forward "^;;; History" nil t)
 		    (re-search-forward "^;;; Code" nil t)
 		    (re-search-forward "^(require" nil t)
-		    (re-search-forward "^("))
+		    (re-search-forward "^(" nil t))
 		(beginning-of-line)))
 	      (if (checkdoc-y-or-n-p
 		   "You should have a \";;; Commentary:\", add one? ")
@@ -2246,7 +2246,7 @@ Code:, and others referenced in the style guide."
 	      (re-search-forward "^;;\\s-*\n\\|^\n" nil t))
 	     ((or (re-search-forward "^;;; Code" nil t)
 		  (re-search-forward "^(require" nil t)
-		  (re-search-forward "^("))
+		  (re-search-forward "^(" nil t))
 	      (beginning-of-line)))
 	    (if (checkdoc-y-or-n-p
 		 "You should have a \";;; History:\", add one? ")