Mercurial > emacs
changeset 54906:dfa3317697a0
(bookmark-send-edited-annotation): Fix docstring.
(bookmark-edit-annotation-mode): Add mode name.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 15 Apr 2004 23:12:21 +0000 |
| parents | da06b9bd886b |
| children | 7993e9a9de59 |
| files | lisp/bookmark.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bookmark.el Thu Apr 15 21:02:33 2004 +0000 +++ b/lisp/bookmark.el Thu Apr 15 23:12:21 2004 +0000 @@ -893,7 +893,8 @@ (make-local-variable 'bookmark-annotation-name) (setq bookmark-annotation-name bookmark) (use-local-map bookmark-edit-annotation-mode-map) - (setq major-mode 'bookmark-edit-annotation-mode) + (setq major-mode 'bookmark-edit-annotation-mode + mode-name "Edit Bookmark Annotation") (insert (funcall bookmark-read-annotation-text-func bookmark)) (let ((annotation (bookmark-get-annotation bookmark))) (if (and annotation (not (string-equal annotation ""))) @@ -902,7 +903,8 @@ (defun bookmark-send-edited-annotation () - "Use buffer contents (minus beginning with `#' as annotation for a bookmark." + "Use buffer contents as annotation for a bookmark. +Lines beginning with `#' are ignored." (interactive) (if (not (eq major-mode 'bookmark-edit-annotation-mode)) (error "Not in bookmark-edit-annotation-mode"))