Checkdoc chokes on "empty" buffers.

[Steve Kemp]

In GNU Emacs 20.7.1 (i386-*-nt5.0.2195)
 of Fri Sep 29 2000 on VISTULA
 configured using `configure NT'

  Please describe exactly what actions triggered the bug
 and the precise symptoms of the bug:

  Recently I ran "M-x checkdoc" on a new buffer, containing
 just a few lines of comments.

  I expected this to insert some lines, such as ";;; History",
 and "(provide 'foo)" for me - which would save me typing
 them, and get me focussed.

  Instead I get an error:

Search failed: "^("

  (And the window is left split).

  The following patch fixes this for me.

Steve
---
http://www.gnusoftware.com/  -- GNU Software for Windows.


*** checkdoc.el-orig    Sun Jan 21 14:18:01 2001
--- checkdoc.el Sun Jan 21 14:21:21 2001
***************
*** 2232,2238 ****
               ((or (re-search-forward "^;;; History" nil t)
                    (re-search-forward "^;;; Code" nil t)
                    (re-search-forward "^(require" nil t)
!                   (re-search-forward "^("))
                (beginning-of-line)))
              (if (checkdoc-y-or-n-p
                   "You should have a \";;; Commentary:\", add one? ")
--- 2232,2238 ----
               ((or (re-search-forward "^;;; History" nil t)
                    (re-search-forward "^;;; Code" nil t)
                    (re-search-forward "^(require" nil t)
!                   (re-search-forward "^(" nil t))
                (beginning-of-line)))
              (if (checkdoc-y-or-n-p
                   "You should have a \";;; Commentary:\", add one? ")
***************
*** 2261,2267 ****
              (re-search-forward "^;;\\s-*\n\\|^\n" nil t))
             ((or (re-search-forward "^;;; Code" nil t)
                  (re-search-forward "^(require" nil t)
!                 (re-search-forward "^("))
              (beginning-of-line)))
            (if (checkdoc-y-or-n-p
                 "You should have a \";;; History:\", add one? ")
--- 2261,2267 ----
              (re-search-forward "^;;\\s-*\n\\|^\n" nil t))
             ((or (re-search-forward "^;;; Code" nil t)
                  (re-search-forward "^(require" nil t)
!                 (re-search-forward "^(" nil t))
              (beginning-of-line)))
            (if (checkdoc-y-or-n-p
                 "You should have a \";;; History:\", add one? ")