Mercurial > emacs
comparison lisp/textmodes/texnfo-upd.el @ 43612:15a51e54d11d
(texinfo-start-menu-description): Remove extra paren in regexp.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Fri, 01 Mar 2002 16:02:00 +0000 |
parents | 5288b3225c40 |
children | 77676c41d6fb |
comparison
equal
deleted
inserted
replaced
43611:cfb42be3205d | 43612:15a51e54d11d |
---|---|
1 ;;; texnfo-upd.el --- utilities for updating nodes and menus in Texinfo files | 1 ;;; texnfo-upd.el --- utilities for updating nodes and menus in Texinfo files |
2 | 2 |
3 ;; Copyright (C) 1989, 1990, 1991, 1992, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Robert J. Chassell | 5 ;; Author: Robert J. Chassell |
6 ;; Maintainer: bug-texinfo@gnu.org | 6 ;; Maintainer: bug-texinfo@gnu.org |
7 ;; Keywords: maint, tex, docs | 7 ;; Keywords: maint, tex, docs |
8 | 8 |
763 "\\|" ; or | 763 "\\|" ; or |
764 "\\(^@ifinfo[ ]*\n\\)" ; ifinfo line, if any | 764 "\\(^@ifinfo[ ]*\n\\)" ; ifinfo line, if any |
765 "\\|" ; or | 765 "\\|" ; or |
766 "\\(^@ifnottex[ ]*\n\\)" ; ifnottex line, if any | 766 "\\(^@ifnottex[ ]*\n\\)" ; ifnottex line, if any |
767 "\\)?" ; end of expression | 767 "\\)?" ; end of expression |
768 "\\)?") | 768 ) |
769 nil t) | 769 nil t) |
770 (setq title | 770 (setq title |
771 (buffer-substring | 771 (buffer-substring |
772 ;; skip over section type | 772 ;; skip over section type |
773 (progn (forward-word 1) | 773 (progn (forward-word 1) |