From 70f314248ac24cab5b9e1fc2142a073223c48354 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 16 Dec 2005 19:09:20 +0000 Subject: [PATCH] (Info-read-node-name-1): In completion-base-size-function's lambda return 1 if common-substring or minibuffer-completion-contents starts with (, and 0 otherwise. --- lisp/info.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index 24d92b2bdd7..79a8a5d0a30 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1517,7 +1517,12 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)." ;; Arrange to highlight the proper letters in the completion list buffer. (put 'Info-read-node-name-1 'completion-base-size-function - (lambda () 1)) + (lambda () + (if (string-match "\\`([^)]*\\'" + (or completion-common-substring + (minibuffer-completion-contents))) + 1 + 0))) (defun Info-read-node-name (prompt &optional default) (let* ((completion-ignore-case t) -- 2.11.4.GIT