Mercurial > emacs
changeset 55200:3616e8c83bfa
(info-apropos): Make it an index node. Align node names
like makeinfo.
| author | Jesper Harder <harder@ifa.au.dk> |
|---|---|
| date | Tue, 27 Apr 2004 14:43:04 +0000 |
| parents | 5248a5a7365b |
| children | 7fff56f5b73c |
| files | lisp/ChangeLog lisp/info.el |
| diffstat | 2 files changed, 15 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 27 14:24:00 2004 +0000 +++ b/lisp/ChangeLog Tue Apr 27 14:43:04 2004 +0000 @@ -1,3 +1,8 @@ +2004-04-27 Jesper Harder <harder@ifa.au.dk> + + * info.el (info-apropos): Make it an index node. Align node names + like makeinfo. + 2004-04-27 Eli Zaretskii <eliz@gnu.org> * net/browse-url.el (browse-url-netscape-sentinel)
--- a/lisp/info.el Tue Apr 27 14:24:00 2004 +0000 +++ b/lisp/info.el Tue Apr 27 14:43:04 2004 +0000 @@ -2493,14 +2493,18 @@ (message "No matches found") (with-current-buffer (get-buffer-create " *info-apropos*") (erase-buffer) - (insert "\n \nFile: apropos, Node: Top, Up: (dir)\n") + (insert "\n \nFile: apropos, Node: Index, Up: (dir)\n") (insert "* Menu: \nNodes whose indices contain \"" string "\"\n\n") (dolist (entry matches) - (insert "* " (nth 1 entry) " [" (nth 0 entry) - "]: (" (nth 0 entry) ")" (nth 2 entry) "." - (if (nth 3 entry) (concat " (line " (nth 3 entry) ")") "") - "\n"))) - (Info-find-node "apropos" "top") + (insert + (format "* %-38s (%s)%s.%s\n" + (concat (nth 1 entry) " [" (nth 0 entry) "]:") + (nth 0 entry) + (nth 2 entry) + (if (nth 3 entry) + (concat " (line " (nth 3 entry) ")") + ""))))) + (Info-find-node "apropos" "Index") (setq Info-complete-cache nil))))) (defun Info-undefined ()