Mercurial > emacs
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)))