Mercurial > emacs
comparison lisp/man.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 | bace4ba4c137 |
children | 93141d34a175 |
comparison
equal
deleted
inserted
replaced
109394:31fa830edbcc | 109395:fa4400531412 |
---|---|
1672 (setq path nil)) | 1672 (setq path nil)) |
1673 (setq complete-path nil))) | 1673 (setq complete-path nil))) |
1674 complete-path)) | 1674 complete-path)) |
1675 | 1675 |
1676 ;;; Bookmark Man Support | 1676 ;;; Bookmark Man Support |
1677 (declare-function bookmark-make-record-default "bookmark" (&optional pos-only)) | 1677 (declare-function bookmark-make-record-default |
1678 "bookmark" (&optional no-file no-context posn)) | |
1678 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) | 1679 (declare-function bookmark-prop-get "bookmark" (bookmark prop)) |
1679 (declare-function bookmark-default-handler "bookmark" (bmk)) | 1680 (declare-function bookmark-default-handler "bookmark" (bmk)) |
1680 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) | 1681 (declare-function bookmark-get-bookmark-record "bookmark" (bmk)) |
1681 | 1682 |
1682 (defun Man-default-bookmark-title () | 1683 (defun Man-default-bookmark-title () |
1689 (buffer-substring-no-properties (point) (line-end-position))))) | 1690 (buffer-substring-no-properties (point) (line-end-position))))) |
1690 | 1691 |
1691 (defun Man-bookmark-make-record () | 1692 (defun Man-bookmark-make-record () |
1692 "Make a bookmark entry for a Man buffer." | 1693 "Make a bookmark entry for a Man buffer." |
1693 `(,(Man-default-bookmark-title) | 1694 `(,(Man-default-bookmark-title) |
1694 ,@(bookmark-make-record-default 'point-only) | 1695 ,@(bookmark-make-record-default 'no-file) |
1695 (location . ,(concat "man " Man-arguments)) | 1696 (location . ,(concat "man " Man-arguments)) |
1696 (man-args . ,Man-arguments) | 1697 (man-args . ,Man-arguments) |
1697 (handler . Man-bookmark-jump))) | 1698 (handler . Man-bookmark-jump))) |
1698 | 1699 |
1699 ;;;###autoload | 1700 ;;;###autoload |