From: Richard M. Stallman Date: Wed, 15 Jul 1998 00:07:49 +0000 (+0000) Subject: (Info-read-node-name-1, Info-read-node-name): X-Git-Tag: emacs-20.3~319 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddf89211584d7443fbde2be4b74bfe28477b84fb;p=emacs.git (Info-read-node-name-1, Info-read-node-name): Rename completion-table to Info-read-node-completion-table. (Info-read-node-completion-table): Add defvar. --- diff --git a/lisp/info.el b/lisp/info.el index ff0aa9d73d0..dc5aadbfe14 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -773,27 +773,29 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." (Info-find-node (if (equal filename "") nil filename) (if (equal nodename "") "Top" nodename)))) +(defvar Info-read-node-completion-table) + ;; This function is used as the "completion table" while reading a node name. -;; It does completion using the alist in completion-table +;; It does completion using the alist in Info-read-node-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))) + (try-completion string Info-read-node-completion-table predicate))) ((eq code t) (if no-completion nil - (all-completions string completion-table predicate))) + (all-completions string Info-read-node-completion-table predicate))) ((eq code 'lambda) (if no-completion t - (assoc string completion-table)))))) + (assoc string Info-read-node-completion-table)))))) (defun Info-read-node-name (prompt &optional default) (let* ((completion-ignore-case t) - (completion-table (Info-build-node-completions)) + (Info-read-node-completion-table (Info-build-node-completions)) (nodename (completing-read prompt 'Info-read-node-name-1 nil t))) (if (equal nodename "") (or default