diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-04-15 23:12:21 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-04-15 23:12:21 +0000 |
| commit | e5dc69afb60a29c85843349dc01288eb216ccdf4 (patch) | |
| tree | 808a0c49db98015525fe83fc19612c93c7fa8567 /lisp/bookmark.el | |
| parent | be3a846bd25311e180a74066c229c15ad690f0f4 (diff) | |
| download | emacs-e5dc69afb60a29c85843349dc01288eb216ccdf4.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")) |