# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1082070741 0
# Node ID dfa3317697a09482056bfb7f5647ccaef4754e7a
# Parent  da06b9bd886b49b1760b5dc93789d29e601b3c27
(bookmark-send-edited-annotation): Fix docstring.
(bookmark-edit-annotation-mode): Add mode name.

diff -r da06b9bd886b -r dfa3317697a0 lisp/bookmark.el
--- 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"))