2 files changed, 15 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96e841cabd5..ecf9cfeaf9c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
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."
           (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 ()