changeset 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.
author Juri Linkov <juri@jurta.org>
date Fri, 16 Dec 2005 19:09:20 +0000
parents bd00b5fc4e4d
children e17240315b4a
files lisp/info.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)