* lisp/bookmark.el (bookmark-rename): Improve prompt.

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index a4d42371511f09d81e85ae0122451c7834ac9065..b57ad12986dff2bfb2de52257751c2b30587c653 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1458,7 +1458,7 @@ name."
   (let ((final-new-name
          (or new-name   ; use second arg, if non-nil
              (read-from-minibuffer
-              "New name: "
+              (format-prompt "Rename \"%s\" to" nil old-name)
               nil
               (define-keymap
                 :parent minibuffer-local-map