[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

Index: emacs/lisp/info.el
diff -u emacs/lisp/info.el:1.467 emacs/lisp/info.el:1.468
--- emacs/lisp/info.el:1.467    Mon Dec 12 05:15:53 2005
+++ emacs/lisp/info.el  Fri Dec 16 19:09:20 2005
@@ -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)