Mercurial > emacs
comparison lisp/info.el @ 105443:96a9f1a0939b
(Info-bookmark-make-record): Document this function.
(Info-bookmark-jump): Document with a doc string, not just a comment.
(Bug#4061)
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Sun, 04 Oct 2009 23:31:52 +0000 |
| parents | bd2966850aac |
| children | 6220a5eef4ef |
comparison
equal
deleted
inserted
replaced
| 105442:96247a7ec10d | 105443:96a9f1a0939b |
|---|---|
| 4767 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) | 4767 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) |
| 4768 (declare-function bookmark-default-handler "bookmark" (bmk)) | 4768 (declare-function bookmark-default-handler "bookmark" (bmk)) |
| 4769 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) | 4769 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) |
| 4770 | 4770 |
| 4771 (defun Info-bookmark-make-record () | 4771 (defun Info-bookmark-make-record () |
| 4772 "This implements the `bookmark-make-record-function' type (which see) | |
| 4773 for Info nodes." | |
| 4772 `(,Info-current-node | 4774 `(,Info-current-node |
| 4773 ,@(bookmark-make-record-default 'point-only) | 4775 ,@(bookmark-make-record-default 'point-only) |
| 4774 (filename . ,Info-current-file) | 4776 (filename . ,Info-current-file) |
| 4775 (info-node . ,Info-current-node) | 4777 (info-node . ,Info-current-node) |
| 4776 (handler . Info-bookmark-jump))) | 4778 (handler . Info-bookmark-jump))) |
| 4777 | 4779 |
| 4778 ;;;###autoload | 4780 ;;;###autoload |
| 4779 (defun Info-bookmark-jump (bmk) | 4781 (defun Info-bookmark-jump (bmk) |
| 4780 ;; This implements the `handler' function interface for record type returned | 4782 "This implements the `handler' function interface for the record |
| 4781 ;; by `Info-bookmark-make-record', which see. | 4783 type returned by `Info-bookmark-make-record', which see." |
| 4782 (let* ((file (bookmark-prop-get bmk 'filename)) | 4784 (let* ((file (bookmark-prop-get bmk 'filename)) |
| 4783 (info-node (bookmark-prop-get bmk 'info-node)) | 4785 (info-node (bookmark-prop-get bmk 'info-node)) |
| 4784 (buf (save-window-excursion ;FIXME: doesn't work with frames! | 4786 (buf (save-window-excursion ;FIXME: doesn't work with frames! |
| 4785 (Info-find-node file info-node) (current-buffer)))) | 4787 (Info-find-node file info-node) (current-buffer)))) |
| 4786 ;; Use bookmark-default-handler to move to the appropriate location | 4788 ;; Use bookmark-default-handler to move to the appropriate location |