Mercurial > emacs
comparison lisp/info.el @ 109395:fa4400531412
Preparation for setting bookmarks in Gnus article buffers (Bug#5975).
* lisp/bookmark.el (bookmark-make-record-default): Allow unneeded
information to be omitted from the record.
Adjust declarations and calls:
* lisp/info.el (bookmark-make-record-default): Adjust declaration.
(Info-bookmark-make-record): Adjust call.
* lisp/woman.el (bookmark-make-record-default): Adjust declaration.
(woman-bookmark-make-record): Adjust call.
* lisp/man.el (bookmark-make-record-default): Adjust declaration.
(Man-bookmark-make-record): Adjust call.
* lisp/image-mode.el (bookmark-make-record-default): Adjust declaration.
* lisp/doc-view.el (bookmark-make-record-default): Adjust declaration.
* lisp/gnus/gnus-sum.el (bookmark-make-record-default): Adjust declaration.
author | Karl Fogel <kfogel@red-bean.com> |
---|---|
date | Wed, 14 Jul 2010 11:57:54 -0400 |
parents | 35894ae393bb |
children | 10e66ac64b61 |
comparison
equal
deleted
inserted
replaced
109394:31fa830edbcc | 109395:fa4400531412 |
---|---|
4899 | 4899 |
4900 (add-to-list 'desktop-buffer-mode-handlers | 4900 (add-to-list 'desktop-buffer-mode-handlers |
4901 '(Info-mode . Info-restore-desktop-buffer)) | 4901 '(Info-mode . Info-restore-desktop-buffer)) |
4902 | 4902 |
4903 ;;;; Bookmark support | 4903 ;;;; Bookmark support |
4904 (declare-function bookmark-make-record-default "bookmark" (&optional pos-only)) | 4904 (declare-function bookmark-make-record-default |
4905 "bookmark" (&optional no-file no-context posn)) | |
4905 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) | 4906 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) |
4906 (declare-function bookmark-default-handler "bookmark" (bmk)) | 4907 (declare-function bookmark-default-handler "bookmark" (bmk)) |
4907 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) | 4908 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) |
4908 | 4909 |
4909 (defun Info-bookmark-make-record () | 4910 (defun Info-bookmark-make-record () |
4910 "This implements the `bookmark-make-record-function' type (which see) | 4911 "This implements the `bookmark-make-record-function' type (which see) |
4911 for Info nodes." | 4912 for Info nodes." |
4912 `(,Info-current-node | 4913 `(,Info-current-node |
4913 ,@(bookmark-make-record-default 'point-only) | 4914 ,@(bookmark-make-record-default 'no-file) |
4914 (filename . ,Info-current-file) | 4915 (filename . ,Info-current-file) |
4915 (info-node . ,Info-current-node) | 4916 (info-node . ,Info-current-node) |
4916 (handler . Info-bookmark-jump))) | 4917 (handler . Info-bookmark-jump))) |
4917 | 4918 |
4918 ;;;###autoload | 4919 ;;;###autoload |