# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1057107440 0
# Node ID 02d430615dd4b49a83d00e10dbe3e23d4647ef7d
# Parent  380202c09939308ffac4803c7bcd13aa8af5ceb9
(Info-fontify-menu-headers): Only fontify `* Menu:' at the beginning
of a line.
(Info-extract-menu-node-name): Correctly initialize while loop.
(Info-scroll-prefer-subnodes): Change default to nil.

diff -r 380202c09939 -r 02d430615dd4 lisp/info.el
--- a/lisp/info.el	Wed Jul 02 00:53:46 2003 +0000
+++ b/lisp/info.el	Wed Jul 02 00:57:20 2003 +0000
@@ -139,7 +139,7 @@
   :type '(repeat directory)
   :group 'info)
 
-(defcustom Info-scroll-prefer-subnodes t
+(defcustom Info-scroll-prefer-subnodes nil
   "*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes.
 If this is non-nil, and you scroll far enough in a node that its menu
 appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up]
@@ -1547,9 +1547,10 @@
   (skip-chars-forward " \t\n")
   (let ((beg (point))
 	str)
-    (while (not (looking-at ":*[,.;() \t\n]"))
-      (skip-chars-forward "^:")
-      (forward-char 1))
+    (while (progn
+	     (skip-chars-forward "^:")
+	     (forward-char 1)
+	     (not (looking-at ":*[,.;() \t\n]"))))
     (setq str
 	  (if (looking-at ":")
 	      (buffer-substring-no-properties beg (1- (point)))
@@ -2747,7 +2748,7 @@
   "Add the face `info-menu-header' to any header before a menu entry."
   (save-excursion
     (goto-char (point-min))
-    (when (re-search-forward "\\* Menu:" nil t)
+    (when (re-search-forward "^\\* Menu:" nil t)
       (put-text-property (match-beginning 0) (match-end 0)
 			 'font-lock-face 'info-menu-header)
       (while (re-search-forward "\n\n\\([^*\n ].*\\)\n\n?[*]" nil t)