texinfo-start-menu-description regex problem

[Michael Scholz]

The function texinfo-start-menu-description (C-c C-c C-d) doesn't work
correctly in texinfo-mode. I think there is a regex mistake in this
function. With the change listed below it works properly now.

I'm using GNU Emacs 21.1.1 (i686-lerche-freebsd3.3, X toolkit, Xaw3d
scroll bars). Debugging message is:

Debugger entered--Lisp error: (invalid-regexp "Unmatched ) or \\)")
  re-search-forward("^@node[    ]+Blabla.*\n\\(\\(\\(^@c 
\\|^@comment\\).*\n\\)\\|\\(^@ifinfo[ ]*\n\\)\\|\\(^@ifnottex[ ]*\n\\)\\)?\\)?" 
nil t)
* call-interactively(texinfo-start-menu-description)

*** /usr/local/share/emacs/21.1/lisp/textmodes/texnfo-upd.el.orig
--- /usr/local/share/emacs/21.1/lisp/textmodes/texnfo-upd.el
***************
*** 672,678 ****
            "\\(^@ifinfo[ ]*\n\\)"             ; ifinfo line, if any
              "\\|"                              ; or
              "\\(^@ifnottex[ ]*\n\\)"           ; ifnottex line, if any
!             "\\)?"                             ; end of expression
            "\\)?")
           nil t)
          (progn
--- 672,678 ----
            "\\(^@ifinfo[ ]*\n\\)"             ; ifinfo line, if any
              "\\|"                              ; or
              "\\(^@ifnottex[ ]*\n\\)"           ; ifnottex line, if any
! ;            "\\)?"                             ; end of expression
            "\\)?")
           nil t)
          (progn

--
Mike