(info-apropos): Make it an index node. Align node names

like makeinfo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96e841cabd552924e7d33e26496780e4bbef6204..ecf9cfeaf9c7f39e387ba109987a99221c18600c 100644 (file)
--- 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 a57078d5e2dbbb9446c1758422d2a1aacd828884..085be1ae897e4be2dec732f09b7600e8ec115119 100644 (file)
--- 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\1f\nFile: apropos, Node: Top, Up: (dir)\n")
+         (insert "\n\1f\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 ()