diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-04 16:18:54 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-04 17:01:53 +0200 |
commit | 0b5301fceb7a4a86551ca41e2271c5189e150d87 (patch) | |
tree | 315b0e02feb7b1d9a732061144e2070ff622f9e8 /lisp/bookmark.el | |
parent | 599aea301283327a00e57a95c47148d28e93f1fc (diff) | |
download | emacs-0b5301fceb7a4a86551ca41e2271c5189e150d87.tar.gz |
Inherit instead of copying keymap in bookmark.el
* lisp/bookmark.el (bookmark-rename): Inherit instead of copying
keymap.
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r-- | lisp/bookmark.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 126c25966cb..7138822447c 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -216,10 +216,10 @@ A non-nil value may result in truncated bookmark names." ;; Set up these bindings dumping time *only*; ;; if the user alters them, don't override the user when loading bookmark.el. -;;;###autoload (define-key ctl-x-r-map "b" 'bookmark-jump) -;;;###autoload (define-key ctl-x-r-map "m" 'bookmark-set) -;;;###autoload (define-key ctl-x-r-map "M" 'bookmark-set-no-overwrite) -;;;###autoload (define-key ctl-x-r-map "l" 'bookmark-bmenu-list) +;;;###autoload (keymap-set ctl-x-r-map "b" #'bookmark-jump) +;;;###autoload (keymap-set ctl-x-r-map "m" #'bookmark-set) +;;;###autoload (keymap-set ctl-x-r-map "M" #'bookmark-set-no-overwrite) +;;;###autoload (keymap-set ctl-x-r-map "l" #'bookmark-bmenu-list) ;;;###autoload (defvar-keymap bookmark-map @@ -1436,9 +1436,9 @@ name." (read-from-minibuffer "New name: " nil - (let ((now-map (copy-keymap minibuffer-local-map))) - (define-key now-map "\C-w" 'bookmark-yank-word) - now-map) + (define-keymap + :parent minibuffer-local-map + "C-w" #'bookmark-yank-word) nil 'bookmark-history)))) (bookmark-set-name old-name final-new-name) |