diff lisp/info.el @ 67623:465f402362cd

(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.

--- a/lisp/info.el	Fri Dec 16 19:08:42 2005 +0000
+++ b/lisp/info.el	Fri Dec 16 19:09:20 2005 +0000
@@ -1517,7 +1517,12 @@
 
 ;; 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)