diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-04-15 23:13:16 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-04-15 23:13:16 +0000 |
| commit | dc5dcc000ac0885938e06e80b5f653ed615cab8b (patch) | |
| tree | 499f720c49cce399e4f1c2956cc8e86bbbb9c4f1 /lisp/bookmark.el | |
| parent | d8e18df75ccbb4eef287b98981c90c1dd7565e64 (diff) | |
| download | emacs-dc5dcc000ac0885938e06e80b5f653ed615cab8b.tar.gz | |
(bookmark-send-edited-annotation): Fix docstring.
(bookmark-edit-annotation-mode): Add mode name.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 67ae2c84865..3ed66f229a8 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -893,7 +893,8 @@ When you have finished composing, type \\[bookmark-send-annotation]. (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 @@ When you have finished composing, type \\[bookmark-send-annotation]. (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")) |