changeset 47794:c460856d1bfd

(Info-next-menu-item, Info-last-menu-item) (info-emacs-manual): Add docstrings. (Info-index): Use `string-to-number' instead of `string-to-int'.
author John Paul Wallington <jpw@pobox.com>
date Tue, 08 Oct 2002 04:57:27 +0000
parents 33354de1129c
children d66b0396e911
files lisp/ChangeLog lisp/info.el
diffstat 2 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Oct 08 01:34:10 2002 +0000
+++ b/lisp/ChangeLog	Tue Oct 08 04:57:27 2002 +0000
@@ -1,3 +1,9 @@
+2002-10-08  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* info.el (Info-next-menu-item, Info-last-menu-item)
+	(info-emacs-manual): Add docstrings.
+	(Info-index): Use `string-to-number' instead of `string-to-int'.
+
 2002-10-08  Kenichi Handa  <handa@m17n.org>
 
 	* international/ucs-tables.el (ucs-translation-table-for-decode):
--- a/lisp/info.el	Tue Oct 08 01:34:10 2002 +0000
+++ b/lisp/info.el	Tue Oct 08 04:57:27 2002 +0000
@@ -407,6 +407,7 @@
 
 ;;;###autoload
 (defun info-emacs-manual ()
+  "Display the Emacs manual in Info mode."
   (interactive)
   (info "emacs"))
 
@@ -1663,6 +1664,7 @@
     (quit-window)))
 
 (defun Info-next-menu-item ()
+  "Go to the node of the next menu item."
   (interactive)
   ;; Bind this in case the user sets it to nil.
   (let* ((case-fold-search t)
@@ -1676,6 +1678,7 @@
       (error "No more items in menu"))))
 
 (defun Info-last-menu-item ()
+  "Go to the node of the previous menu item."
   (interactive)
   (save-excursion
     (forward-line 1)
@@ -1795,7 +1798,7 @@
 		 (search-forward "\n* Menu:"
 				 current-point
 				 t)))))
-    (if (or virtual-end 
+    (if (or virtual-end
 	    (pos-visible-in-window-p (point-min) nil t))
 	(Info-last-preorder)
       (scroll-down))))
@@ -1895,8 +1898,8 @@
 		  (push (list (match-string-no-properties 1)
 			      (match-string-no-properties 2)
 			      Info-current-node
-			      (string-to-int (concat "0"
-						     (match-string 3))))
+			      (string-to-number (concat "0"
+							(match-string 3))))
 			matches))
 		(and (setq node (Info-extract-pointer "next" t))
 		     (string-match "\\<Index\\>" node)))