diff options
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index a57078d5e2d..085be1ae897 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2493,14 +2493,18 @@ Build a menu of the possible matches." | |||
| 2493 | (message "No matches found") | 2493 | (message "No matches found") |
| 2494 | (with-current-buffer (get-buffer-create " *info-apropos*") | 2494 | (with-current-buffer (get-buffer-create " *info-apropos*") |
| 2495 | (erase-buffer) | 2495 | (erase-buffer) |
| 2496 | (insert "\n \nFile: apropos, Node: Top, Up: (dir)\n") | 2496 | (insert "\n \nFile: apropos, Node: Index, Up: (dir)\n") |
| 2497 | (insert "* Menu: \nNodes whose indices contain \"" string "\"\n\n") | 2497 | (insert "* Menu: \nNodes whose indices contain \"" string "\"\n\n") |
| 2498 | (dolist (entry matches) | 2498 | (dolist (entry matches) |
| 2499 | (insert "* " (nth 1 entry) " [" (nth 0 entry) | 2499 | (insert |
| 2500 | "]: (" (nth 0 entry) ")" (nth 2 entry) "." | 2500 | (format "* %-38s (%s)%s.%s\n" |
| 2501 | (if (nth 3 entry) (concat " (line " (nth 3 entry) ")") "") | 2501 | (concat (nth 1 entry) " [" (nth 0 entry) "]:") |
| 2502 | "\n"))) | 2502 | (nth 0 entry) |
| 2503 | (Info-find-node "apropos" "top") | 2503 | (nth 2 entry) |
| 2504 | (if (nth 3 entry) | ||
| 2505 | (concat " (line " (nth 3 entry) ")") | ||
| 2506 | ""))))) | ||
| 2507 | (Info-find-node "apropos" "Index") | ||
| 2504 | (setq Info-complete-cache nil))))) | 2508 | (setq Info-complete-cache nil))))) |
| 2505 | 2509 | ||
| 2506 | (defun Info-undefined () | 2510 | (defun Info-undefined () |