From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 17 Jun 2022 14:06:10 +0000 (+0200)
Subject: Rename command to bookmark-edit-annotation-confirm
X-Git-Tag: emacs-29.0.90~1447^2~1676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2237e46ba9abc96a4217afc1a0dda5f95c0c5eb9;p=emacs.git

Rename command to bookmark-edit-annotation-confirm

* lisp/bookmark.el (bookmark-edit-annotation-confirm): Rename from
'bookmark-send-edited-annotation' to be more consistent with
'bookmark-edit-annotation-cancel'.  Make the old name into an
obsolete function alias.
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index fdaea381abb..126c25966cb 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1029,7 +1029,7 @@ annotations."
            "#  All lines which start with a `#' will be deleted.\n")
           (substitute-command-keys
            (concat
-            "#  Type \\[bookmark-send-edited-annotation] when done.  Type "
+            "#  Type \\[bookmark-edit-annotation-confirm] when done.  Type "
             "\\[bookmark-edit-annotation-cancel] to cancel.\n#\n"))
 	  "#  Author: " (user-full-name) " <" (user-login-name) "@"
 	  (system-name) ">\n"
@@ -1043,7 +1043,7 @@ It takes one argument, the name of the bookmark, as a string.")
 (defvar-keymap bookmark-edit-annotation-mode-map
   :doc "Keymap for editing an annotation of a bookmark."
   :parent text-mode-map
-  "C-c C-c" #'bookmark-send-edited-annotation
+  "C-c C-c" #'bookmark-edit-annotation-confirm
   "C-c C-k" #'bookmark-edit-annotation-cancel)
 
 (defun bookmark-insert-annotation (bookmark-name-or-record)
@@ -1059,7 +1059,7 @@ It takes one argument, the name of the bookmark, as a string.")
   text-mode "Edit Bookmark Annotation"
   "Mode for editing the annotation of bookmarks.
 \\<bookmark-edit-annotation-mode-map>\
-When you have finished composing, type \\[bookmark-send-edited-annotation] \
+When you have finished composing, type \\[bookmark-edit-annotation-confirm] \
 or \\[bookmark-edit-annotation-cancel] to cancel.
 
 \\{bookmark-edit-annotation-mode-map}")
@@ -1083,7 +1083,7 @@ or \\[bookmark-edit-annotation-cancel] to cancel.
   (bookmark-edit-annotation--maybe-display-list
    (message "Canceled by user")))
 
-(defun bookmark-send-edited-annotation ()
+(defun bookmark-edit-annotation-confirm ()
   "Use buffer contents as annotation for a bookmark.
 Lines beginning with `#' are ignored."
   (interactive nil bookmark-edit-annotation-mode)
@@ -2571,6 +2571,12 @@ This also runs `bookmark-exit-hook'."
 
 (run-hooks 'bookmark-load-hook)
 
+
+;;; Obsolete:
+
+(define-obsolete-function-alias 'bookmark-send-edited-annotation
+  #'bookmark-edit-annotation-confirm "29.1")
+
 (provide 'bookmark)
 
 ;;; bookmark.el ends here