From 03524be63ae2a8d72fce0652208a57f1fc788edb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Aug 1995 20:56:23 +0000 Subject: [PATCH] (Info-read-node-name-1): New function. (Info-read-node-name): Use Info-read-node-name-1 to avoid getting confused by spaces when text starts with (FILENAME). --- lisp/info.el | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index fd08a00e25e..6c079f9fc99 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -605,9 +605,28 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." (Info-find-node (if (equal filename "") nil filename) (if (equal nodename "") "Top" nodename)))) +;; This function is used as the "completion table" while reading a node name. +;; It does completion using the alist in completion-table +;; unless STRING starts with an open-paren. +(defun Info-read-node-name-1 (string predicate code) + (let ((no-completion (and (> (length string) 0) (eq (aref string 0) ?\()))) + (cond ((eq code nil) + (if no-completion + string + (try-completion string completion-table predicate))) + ((eq code t) + (if no-completion + nil + (all-completions string completion-table predicate))) + ((eq code 'lambda) + (if no-completion + t + (assoc string completion-table)))))) + (defun Info-read-node-name (prompt &optional default) (let* ((completion-ignore-case t) - (nodename (completing-read prompt (Info-build-node-completions)))) + (completion-table (Info-build-node-completions)) + (nodename (completing-read prompt 'Info-read-node-name-1))) (if (equal nodename "") (or default (Info-read-node-name prompt)) -- 2.39.2