Mercurial > emacs
comparison lisp/info.el @ 66279:c12719e4ec89
(Info-index-next): Add total number of index alternatives to the message.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 Oct 2005 08:49:46 +0000 |
| parents | 28718fa5d988 |
| children | bdc911746f64 0ca0d9181b5e |
comparison
equal
deleted
inserted
replaced
| 66278:8926d6f2f267 | 66279:c12719e4ec89 |
|---|---|
| 2817 (Info-find-index-name name))) | 2817 (Info-find-index-name name))) |
| 2818 (message "Found `%s' in %s. %s" | 2818 (message "Found `%s' in %s. %s" |
| 2819 (car (car Info-index-alternatives)) | 2819 (car (car Info-index-alternatives)) |
| 2820 (nth 2 (car Info-index-alternatives)) | 2820 (nth 2 (car Info-index-alternatives)) |
| 2821 (if (cdr Info-index-alternatives) | 2821 (if (cdr Info-index-alternatives) |
| 2822 "(`,' tries to find next)" | 2822 (format "(%s total; use `,' for next)" |
| 2823 (length Info-index-alternatives)) | |
| 2823 "(Only match)"))) | 2824 "(Only match)"))) |
| 2824 | 2825 |
| 2825 (defun Info-find-index-name (name) | 2826 (defun Info-find-index-name (name) |
| 2826 "Move point to the place within the current node where NAME is defined." | 2827 "Move point to the place within the current node where NAME is defined." |
| 2827 (let ((case-fold-search t)) | 2828 (let ((case-fold-search t)) |