mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
(info-emacs-manual): Add docstrings.
(Info-index): Use `string-to-number' instead of `string-to-int'.
This commit is contained in:
John Paul Wallington 2002-10-08 04:57:27 +00:00
parent 9793be06ea
commit 3a8803c0be
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

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

9
lisp/info.el
View File

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