(define-key map "\C-w" 'bookmark-yank-word)
map))
-;;;###autoload
(defun bookmark-set-internal (prompt name overwrite-or-push)
"Interactively set a bookmark named NAME at the current location.
(setq bookmark-current-buffer nil)))
+;;;###autoload
(defun bookmark-set (&optional name no-overwrite)
"Set a bookmark named NAME at the current location.
If NAME is nil, then prompt the user.
(if no-overwrite "Set bookmark" "Set bookmark unconditionally")))
(bookmark-set-internal prompt name (if no-overwrite 'push 'overwrite))))
+;;;###autoload
(defun bookmark-set-no-overwrite (&optional name push-bookmark)
"Set a bookmark named NAME at the current location.
If NAME is nil, then prompt the user.