Function: bookmark-edit-annotation-confirm

bookmark-edit-annotation-confirm is an interactive and byte-compiled function defined in bookmark.el.gz.

Signature

(bookmark-edit-annotation-confirm)

Documentation

Use buffer contents as annotation for a bookmark.

Lines beginning with # are ignored.

Key Bindings

Aliases

bookmark-send-edited-annotation (obsolete since 29.1)

Source Code

;; Defined in /usr/src/emacs/lisp/bookmark.el.gz
(defun bookmark-edit-annotation-confirm ()
  "Use buffer contents as annotation for a bookmark.
Lines beginning with `#' are ignored."
  (interactive nil bookmark-edit-annotation-mode)
  (if (not (derived-mode-p 'bookmark-edit-annotation-mode))
      (error "Not in bookmark-edit-annotation-mode"))
  (goto-char (point-min))
  (while (< (point) (point-max))
    (if (= (following-char) ?#)
        (bookmark-kill-line t)
      (forward-line 1)))
  ;; Take no chances with text properties.
  (bookmark-edit-annotation--maybe-display-list
   (let ((annotation (buffer-substring-no-properties (point-min) (point-max)))
         (bookmark-name bookmark-annotation-name))
     (bookmark-set-annotation bookmark-name annotation)
     (bookmark-update-last-modified bookmark-name)
     (setq bookmark-alist-modification-count
           (1+ bookmark-alist-modification-count))
     (message "Annotation updated for \"%s\"" bookmark-name))))