From: Jesper Harder <harder@ifa.au.dk>
Date: Tue, 27 Apr 2004 14:43:04 +0000 (+0000)
Subject: (info-apropos): Make it an index node.  Align node names
X-Git-Tag: ttn-vms-21-2-B4~6549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5242942fe797bccdd81a4a235e370136c7b61ba2;p=emacs.git

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

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 ()