From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 8 Mar 1997 19:19:51 +0000 (+0000)
Subject: (Info-read-node-name): Caused completing-read to force
X-Git-Tag: emacs-20.1~2805
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6d61ffa7afcde7e6e29538821e20b841541e18a;p=emacs.git

(Info-read-node-name): Caused completing-read to force
the input read to match a valid entry
---

diff --git a/lisp/info.el b/lisp/info.el
index bf25a8522d0..be26cd4fa33 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
 (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))