Mercurial > emacs
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)