Mercurial > emacs
diff lisp/info.el @ 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 | 05b10b9cd8bb |
children | 7d7f2b855580 |
line wrap: on
line diff
--- 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)))