changeset 23819:2e335a66e659

(Info-menu): Don't return error if point is between menu header and first menu item.
author Markus Rost <rost@math.uni-bielefeld.de>
date Fri, 04 Dec 1998 23:05:46 +0000
parents 19e467700712
children 3d67195ddc6a
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)