Mercurial > emacs
changeset 18849:b4b2ad407ba0
(texinfo-all-menus-update)
(texinfo-master-menu, texinfo-multiple-files-update):
Search for texinfo-master-menu-header as a string, not a regexp.
(texinfo-master-menu-header): Move defvar earlier.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 18 Jul 1997 02:57:14 +0000 |
| parents | 4d10e58ff87f |
| children | 238067491696 |
| files | lisp/textmodes/texnfo-upd.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/texnfo-upd.el Fri Jul 18 02:16:42 1997 +0000 +++ b/lisp/textmodes/texnfo-upd.el Fri Jul 18 02:57:14 1997 +0000 @@ -149,6 +149,11 @@ ;;; Code: +(defvar texinfo-master-menu-header + " --- The Detailed Node Listing ---\n" + "String inserted before lower level entries in Texinfo master menu. +It comes after the chapter-level menu entries.") + (defun texinfo-make-menu (&optional beginning end) "Without any prefix argument, make or update a menu. Make the menu for the section enclosing the node found following point. @@ -229,7 +234,7 @@ (goto-char (point-min)) (message "Checking for a master menu in %s ... "(buffer-name)) (save-excursion - (if (re-search-forward texinfo-master-menu-header nil t) + (if (search-forward texinfo-master-menu-header nil t) (progn ;; Check if @detailmenu kludge is used; ;; if so, leave point before @detailmenu. @@ -728,11 +733,6 @@ ;;; Making the master menu -(defvar texinfo-master-menu-header - " --- The Detailed Node Listing ---\n" - "String inserted before lower level entries in Texinfo master menu. -It comes after the chapter-level menu entries.") - (defun texinfo-master-menu (update-all-nodes-menus-p) "Make a master menu for a whole Texinfo file. Non-nil argument (prefix, if interactive) means first update all @@ -780,7 +780,7 @@ (or (re-search-forward "^@node" nil t) (error "Too few nodes for a master menu!")) (point)))) - (if (re-search-forward texinfo-master-menu-header first-chapter t) + (if (search-forward texinfo-master-menu-header first-chapter t) (progn ;; Check if @detailmenu kludge is used; ;; if so, leave point before @detailmenu. @@ -819,7 +819,7 @@ (save-excursion (goto-char (point-min)) - (if (re-search-forward texinfo-master-menu-header nil t) + (if (search-forward texinfo-master-menu-header nil t) (progn (goto-char (match-beginning 0)) ;; Check if @detailmenu kludge is used; @@ -2018,7 +2018,7 @@ (progn ;; First, removing detailed part of any pre-existing master menu (goto-char (point-min)) - (if (re-search-forward texinfo-master-menu-header nil t) + (if (search-forward texinfo-master-menu-header nil t) (progn (goto-char (match-beginning 0)) ;; Check if @detailmenu kludge is used;