# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 912812746 0
# Node ID 2e335a66e6596960f38293567a92f47a62146371
# Parent  19e467700712fcaf0e5eb6341d7cdadfa1ee778c
(Info-menu):  Don't return error if point is between menu header and
first menu item.

diff -r 19e467700712 -r 2e335a66e659 lisp/info.el
--- a/lisp/info.el	Fri Dec 04 11:54:56 1998 +0000
+++ b/lisp/info.el	Fri Dec 04 23:05:46 1998 +0000
@@ -1212,10 +1212,10 @@
 	    (save-excursion
 	      (goto-char p)
 	      (end-of-line)
-	      (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
-	      (setq default (format "%s" (buffer-substring
-					  (match-beginning 1)
-					  (match-end 1)))))))
+	      (if (re-search-backward "\n\\* +\\([^:\t\n]*\\):" beg t)
+		  (setq default (format "%s" (buffer-substring
+					      (match-beginning 1)
+					      (match-end 1))))))))
      (let ((item nil))
        (while (null item)
 	 (setq item (let ((completion-ignore-case t)