From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 3 Feb 2007 14:02:45 +0000 (+0000)
Subject: (texinfo-menu-copy-old-description):
X-Git-Tag: emacs-pretest-22.0.94~435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f64723771545e2f47ea0661f2551154a631ab18e;p=emacs.git

(texinfo-menu-copy-old-description):
Don't copy @ignore lines into menu descriptions.
(texinfo-multi-file-update): Goto the @node line before attempting to pluck the
node name.
(texinfo-multiple-files-update): Reverse the optional arguments' order, as per
the doc string and the `interactive' form.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d6033ea6e3d..5de6a174ad2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2007-02-03  Eli Zaretskii  <eliz@gnu.org>
+
+	* textmodes/texnfo-upd.el (texinfo-menu-copy-old-description):
+	Don't copy @ignore lines into menu descriptions.
+	(texinfo-multi-file-update): Goto the @node line before attempting
+	to pluck the node name.
+	(texinfo-multiple-files-update): Reverse the optional arguments'
+	order, as per the doc string and the `interactive' form.
+
 2007-02-03  Chong Yidong  <cyd@stupidchicken.com>
 
 	* image-mode.el: Use autoload to avoid overriding disabled setting
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index c5d125fdae5..4566bbc4496 100644
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -619,15 +619,16 @@ Point must be located just after the node name.  Point left before description.
 Single argument, END-OF-MENU, is position limiting search."
   (skip-chars-forward "[:.,\t\n ]+")
   ;; don't copy a carriage return at line beginning with asterisk!
-  ;; don't copy @detailmenu or @end menu as descriptions!
+  ;; don't copy @detailmenu or @end menu or @ignore as descriptions!
   ;; do copy a description that begins with an `@'!
   ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc.
   (if (and (looking-at "\\(\\w+\\|@\\)")
-	   (not (looking-at "\\(^\\* \\|^@detailmenu\\|^@end menu\\)")))
+	   (not (looking-at
+		 "\\(^\\* \\|^@detailmenu\\|^@end menu\\|^@ignore\\)")))
       (buffer-substring
        (point)
        (save-excursion
-	 (re-search-forward "\\(^\\* \\|^@end menu\\)" end-of-menu t)
+	 (re-search-forward "\\(^\\* \\|^@ignore\\|^@end menu\\)" end-of-menu t)
 	 (forward-line -1)
 	 (end-of-line)                  ; go to end of last description line
 	 (point)))
@@ -1820,6 +1821,9 @@ chapters."
     (set-buffer (find-file-noselect (car (cdr files-with-node-lines))))
     (widen)
     (goto-char (point-min))
+    ;; The following search _must_ succeed, since we verified above
+    ;; that this file does have a @node line.
+    (re-search-forward "^@node" nil t)
     (beginning-of-line)
     (texinfo-check-for-node-name)
     (setq next-node-name (texinfo-copy-node-name))
@@ -1851,6 +1855,10 @@ chapters."
 	(set-buffer (find-file-noselect (car (cdr files-with-node-lines))))
 	(widen)
 	(goto-char (point-min))
+	;; The following search _must_ succeed, since we verified
+	;; above that files in files-with-node-lines do have a @node
+	;; line.
+	(re-search-forward "^@node" nil t)
 	(beginning-of-line)
 	(texinfo-check-for-node-name)
 	(setq next-node-name (texinfo-copy-node-name))
@@ -1926,7 +1934,7 @@ be the files included within it.  A main menu must already exist."
 ;;; The multiple-file update function
 
 (defun texinfo-multiple-files-update
-  (outer-file &optional update-everything make-master-menu)
+  (outer-file &optional make-master-menu update-everything)
   "Update first node pointers in each file included in OUTER-FILE;
 create or update the `Top' level node pointers and the main menu in
 the outer file that refers to such nodes.  This does not create or