summaryrefslogtreecommitdiff
path: root/lisp/info.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1997-03-08 19:19:51 +0000
committerKarl Heuer <kwzh@gnu.org>1997-03-08 19:19:51 +0000
commitb6d61ffa7afcde7e6e29538821e20b841541e18a (patch)
tree7a6a1204dc873ca0244dfebc9eb36e5a9c33cbbe /lisp/info.el
parentfd543be59d1056c9ae4c887ef6a1450f93a1b28f (diff)
downloademacs-b6d61ffa7afcde7e6e29538821e20b841541e18a.tar.gz
(Info-read-node-name): Caused completing-read to force
the input read to match a valid entry
Diffstat (limited to 'lisp/info.el')
-rw-r--r--lisp/info.el4
1 files changed, 2 insertions, 2 deletions
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))