# HG changeset patch
# User Jesper Harder <harder@ifa.au.dk>
# Date 1083076984 0
# Node ID 3616e8c83bfa39755813dfcbed67499272fe939b
# Parent  5248a5a7365b3fe334c869e295ecbc25d039f697
(info-apropos): Make it an index node.  Align node names
like makeinfo.

diff -r 5248a5a7365b -r 3616e8c83bfa lisp/ChangeLog
--- 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)
diff -r 5248a5a7365b -r 3616e8c83bfa lisp/info.el
--- 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 ()