mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
like makeinfo.
This commit is contained in:
Jesper Harder 2004-04-27 14:43:04 +00:00
parent 9339736070
commit 5242942fe7
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

16
lisp/info.el
View file

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