(Info-next-menu-item, Info-last-menu-item)

(info-emacs-manual): Add docstrings.
(Info-index): Use `string-to-number' instead of `string-to-int'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 209752ceedb062d503411d27bb041a1f7d5c76ce..f34f8f2893a63118a2bea4f80105f6f860a71af1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):

diff --git a/lisp/info.el b/lisp/info.el
index 560c6bfc7c12894878cd266639eeb7ff755334e7..331a2a28ce75ddcbe31aecc996a3cddb0fac5b84 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -407,6 +407,7 @@ in all the directories in that path."
 
 ;;;###autoload
 (defun info-emacs-manual ()
+  "Display the Emacs manual in Info mode."
   (interactive)
   (info "emacs"))
 
@@ -1663,6 +1664,7 @@ N is the digit argument used to invoke this command."
     (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 @@ N is the digit argument used to invoke this command."
       (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 @@ parent node."
                 (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 @@ Give a blank topic name to go to the Index node itself."
                  (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)))