diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-02-13 21:18:00 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-02-13 21:18:00 +0100 |
| commit | deb10e984e16201182b0569f7df7d30ec3b8afa9 (patch) | |
| tree | e841dae88e2db9151ce45feb2b61d3531ccb969c /lisp/magit-worktree.el | |
| parent | 2dd4b597be5e8d3d17c0e4dc8d2b200156d5c45d (diff) | |
Use defvar-keymap for keymaps containing context menus
Diffstat (limited to 'lisp/magit-worktree.el')
| -rw-r--r-- | lisp/magit-worktree.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/magit-worktree.el b/lisp/magit-worktree.el index b955e07..135e821 100644 --- a/lisp/magit-worktree.el +++ b/lisp/magit-worktree.el @@ -145,14 +145,14 @@ then show it in Dired instead." ;;; Sections -(defvar magit-worktree-section-map - (let ((map (make-sparse-keymap))) - (magit-menu-set map [magit-visit-thing] #'magit-worktree-status "Visit %s") - (magit-menu-set map [magit-delete-thing] #'magit-worktree-delete "Delete %m") - (define-key-after map [separator-magit-worktree] menu-bar-separator) - (magit-menu-set map [magit-worktree] #'magit-worktree "Worktree commands...") - map) - "Keymap for `worktree' sections.") +(defvar-keymap magit-worktree-section-map + :doc "Keymap for `worktree' sections." + "<remap> <magit-delete-thing>" #'magit-worktree-delete + "<remap> <magit-visit-thing>" #'magit-worktree-status + "<4>" (magit-menu-item "Worktree commands..." #'magit-worktree) + "<3>" '(menu-item "--") + "<2>" (magit-menu-item "Delete %m" #'magit-worktree-delete) + "<1>" (magit-menu-item "Visit %s" #'magit-worktree-status)) (defun magit-insert-worktrees () "Insert sections for all worktrees. |