checkdoc still can't handle empty buffers.

[Steve Kemp]

In GNU Emacs 21.1.1 (i386-msvc-nt5.0.2195)
 of 2001-10-22 on VISTULA
configured using `configure --with-msvc (12.00) --no-opt'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

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

  I reported this in Emacs 20.7.1 - but it still happens
 on 21.1.

  Original message follows:



  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
---
# NT Emacs FAQ maintainer.
http://www.gnu.org/software/emacs/windows/faq.html



*** 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? ")