# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 857848791 0
# Node ID a6f8fb00d93ea61d852e38c85e893ee0f7192fd4
# Parent  37acf21ce6f6c246a8fd0826b0e9377b5b700148
(Info-read-node-name): Caused completing-read to force
the input read to match a valid entry

diff -r 37acf21ce6f6 -r a6f8fb00d93e lisp/info.el
--- a/lisp/info.el	Sat Mar 08 19:08:39 1997 +0000
+++ b/lisp/info.el	Sat Mar 08 19:19:51 1997 +0000
@@ -1,6 +1,6 @@
 ;;; info.el --- info package for Emacs.
 
-;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1985-1986, 1992-1997 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: help
@@ -695,7 +695,7 @@
 (defun Info-read-node-name (prompt &optional default)
   (let* ((completion-ignore-case t)
 	 (completion-table (Info-build-node-completions))
-	 (nodename (completing-read prompt 'Info-read-node-name-1)))
+	 (nodename (completing-read prompt 'Info-read-node-name-1 nil t)))
     (if (equal nodename "")
 	(or default
 	    (Info-read-node-name prompt))